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Abstract 

In 1991, Pfenning and Lee studied whether System F could sup- 
port a typed self-interpreter. They concluded that typed self- 
representation for System F "seems to be impossible", but were 
able to represent System F in F u . Further, they found that the rep- 
resentation of F^ requires kind polymorphism, which is outside 
F u . In 2009, Rendel, Ostermann and Hofer conjectured that the 
representation of kind-polymorphic terms would require another, 
higher form of polymorphism. Is this a case of infinite regress? 
We show that it is not and present a typed self-representation for 
Girard's System U, the first for a A-calculus with decidable type 
checking. System U extends System F w with kind polymorphic 
terms and types. We show that kind polymorphic types (i.e. types 
that depend on kinds) are sufficient to "tie the knot" - they enable 
representations of kind polymorphic terms without introducing an- 
other form of polymorphism. Our self-representation supports op- 
erations that iterate over a term, each of which can be applied to 
a representation of itself. We present three typed self-applicable 
operations: a self-interpreter that recovers a term from its represen- 
tation, a predicate that tests the intensional structure of a term, and 
a typed continuation-passing-style (CPS) transformation - the first 
typed self-applicable CPS transformation. Our techniques could 
have applications from verifiably type-preserving metaprograms, 
to growable typed languages, to more efficient self-interpreters. 

Categories and Subject Descriptors D.3.4 [Processors]: Inter- 
preters; D.2.4 [Program Verification]: Correctness proofs, formal 
methods 

General Terms Languages; Theory 

Keywords Lambda Calculus; Self Representation; Types 

1. Introduction 

Typed self-representation is the problem of representing a stati- 
cally typed language in itself. It can be seen as the intersection 
of two lines of research: self-representation, which generally stud- 
ies representations of untyped or dynamically typed languages in 
themselves, and typed representation, which studies techniques for 
defining typed representations of statically typed languages that en- 
sure only well-typed programs can be represented. 
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In general, the techniques required for building a representation 
depend upon both the meta-language (in which the representation 
is defined) and the object language (which is represented). Rep- 
resentations of expressive object language features tend to require 
even more expressive meta-language features. In the case of a self- 
interpreter, the meta-language and the object language are the same. 
The key challenge of typed self-representation is to identify a sin- 
gle typed language that is expressive enough to represent each of 
its own features, without additional expressive power. 

Language — . 

^- Representation 

In our case, we are interested in typed A-calculi with decid- 
able type checking. It has been an open question since 1991 [26] 
whether a typed A-calculus with decidable type checking can sup- 
port a meaningful notion of typed self-representation. 

Self Representation. Self-representation and self-interpretation 
have many important applications. A self-interpreter can be used 
to grow a language from a small core implemented in some other 
meta-language. One can use similar techniques to implement self- 
optimizers and compilers, as well as debuggers, read-eval-print- 
loops, and macro systems. A similar idea is the reflective tower, 
which uses an infinite tower of self-interpreters to add reflective 
capabilities to a language. 

There are many examples of self-interpreters in the literature, 
including ones for A-calculus [4, 7, 8, 18, 22, 23, 28, 31], Haskell 
[25], JavaScript [13], Lisp [21], Python [36], Ruby [37], Scheme 
[2], Standard ML [29], and many others [19, 32, 38]. In each 
of these the representations are untyped, in the sense that (1) it 
is possible to build representations of ill-typed terms, and (2) all 
representations are either untyped or else have the same type. 

Typed Representation. We can contrast this with typed repre- 
sentations, which have two essential properties: (1) only well-typed 
terms can be represented, and (2) the type of a term is reflected in 
the type of its representation, in the sense that the former can be 
determined by the latter. This provides important correctness guar- 
antees for metaprograms. An immediate consequence of (1) is that 
a metaprogram cannot produce ill-typed terms. We can also ensure 
that the types of its input and output terms are related in a particu- 
lar way. For example, we can ensure that a self-interpreter preserves 
the type of its input, or that a continuation-passing-style transfor- 
mation modifies the type of the input program in the expected way. 

There are many examples in the literature of typed representa- 
tions. In most cases the techniques rely on the fact that the meta- 
language has a more powerful type system than the object lan- 
guage. 

Typed Self-Representation. The goal of typed self-represent- 
ation is to combine the benefits of self-representation and typed 
representation. It promises the best of both worlds: on the one 



hand, it brings the expressive power of self-representation to the 
world of statically typed languages. On the other hand, it brings the 
correctness guarantees of types to self-applicable metaprograms. 
A robust typed self-representation would support typed variants of 
the kinds of applications enabled by self-representation. It would 
also narrow the expressiveness gap between dynamically typed 
languages and statically typed languages, allowing more classical 
programs from dynamically typed languages to be statically type 
checked. 

What does it mean for a language to support typed self- 
representation? We have adopted two primary requirements: that 
our language be a typed A-calculus with decidable type-checking, 
and that a representation support operations that iterate over the 
structure of the term. Further, we want to allow operations that pro- 
duce results of different types, possibly related to the type of the 
input representation. 

We target a typed self-recognizer [17], which is a self-interpreter 
that recovers a term from its representation. The idea of a self- 
recognizer was first studied by Kleene [18] in 1936 for an untyped 
A-calculus. There are several examples of typed recognizers and 
self-recognizers [26, 27] that are implemented by iteration. Iter- 
ation is desirable because it can be supported by languages that 
don't include recursion. An operation that iterates or folds over the 
term is defined by cases - one case for each syntactic form. 

In the case of a pure A-calculus (that contains only abstractions, 
applications, and variables), we have identified a core challenge 
that is related to typed self-representation. The Polymorphic Ap- 
plication (polyapp) problem is to define a polymorphic application 
function for each form of application in the language. For example, 
System F terms can be applied to terms and to types. The polyapp 
problem for System F is to define a polymorphic application func- 
tion that can apply terms to terms, and a polymorphic application 
function that can apply terms to types. In Section 3.2 we present a 
general technique for implementing polyapp functions by decom- 
posing types. In subsequent sections we leverage this technique to 
represent terms and types. 

History. Typed self-representation of A-calculi has been stud- 
ied since at least 1991, when Pfenning and Lee [26] considered 
whether System F could support a typed self-recognizer. Pfenning 
and Lee concluded that the problem "seems to be impossible", but 
were able to implement a typed recognizer for System F represen- 
tations in F w . Furthermore, they were able to implement F w in F+, 
which extends F w with kind polymorphic terms. They did not study 
representation of F+ . 

In 2009 Rendel, Ostermann and Hofer [27] studied the repre- 
sentation of kind polymorphism, and conjectured that it would re- 
quire "another, higher form of polymorphism". Their solution was 
to combine the categories of types and kinds, so that kind polymor- 
phism is represented in the same way as type polymorphism. They 
demonstrated the first typed self-representation and first typed self- 
recognizer for a A-calculus, though their calculus does not support 
decidable type checking. 

In 2011 Jay and Palsberg [17] implemented a typed self- 
interpreter for a combinator calculus with System F types. They 
implemented a self-recognizer and the first typed self-enactor, a 
self-interpreter that implements multi-step reduction on typed rep- 
resentations. Like [27], type checking is undecidable in their calcu- 
lus. Their representation technique was designed for combinators, 
and does not appear to be easily translated to a A-calculus. 

Tying the Knot. A challenge of representing a typed A-calculus 
is to find techniques for representing each form of abstraction and 
application in the language without adding any new ones. Pfenning 
and Lee represented System F type abstraction and application us- 
ing the higher order types of F w . In particular, they used higher or- 
der types to represent System F type abstractions and applications. 
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F > F u > F+ > U 

Figure 1. Four typed A-calculi: — > denotes "represented in." 



We can demonstrate their technique using a polymorphic type ap- 
plication function. 

A type application function for System F type applications 
should map a polymorphic term and a type to the application of 
the term to the type. For example, given a term of type Va. a — > a 
and a type r, the type application function should return a term of 
type t — y t. We can define the type application function for this 
case as Xx : (Vq. a — > a). A/3, x ft. 

A polymorphic type application function for System F should 
be able to apply any polymorphic term. In other words, it should be 
polymorphic in the type of the term, and the type of the term must 
itself be polymorphic. What is needed is a way to abstract over ex- 
actly the polymorphic types of System F, excluding monomorphic 
types like a — > j3. This is beyond the capabilities of System F type 
abstraction. 

Pfenning and Lee solved this problem by encoding quantified 
types as second-order types in System F w . For example, the type 
Va. a — > a can be encoded as the second-order type Aa : *. a — > 
a. The types of F u are classified by a family of kinds. First-order 
types like t\ — > T2 have kind *, and second-order types like 
Aa : *. a — > a have kind * — > *. Type abstractions in F^ 
range over a particular kind that is specified by an annotation. We 
can abstract over encodings of System F quantified types using 
a type abstraction annotated with kind * — > *. This enables a 
polymorphic type application function for System F quantified 
types to be implemented as: 

Act Ax : (Va : *. a a). A/3 : *. x j3 

In Fa,, the type of this term is Vct (Va : *. a a) — > (V/? : 

*. a /3). The type Va : *. a a represents an arbitrary quantified 
type. Substituting a with an encoded quantified type recovers the 
quantified type. For example, substituting a with Aa : *. a — > a 
yields Va : *. (Aa : *. a — > a) a, which is equivalent to 
Va : *. a — > a. Note that Va : *. a — > a is the F w version 
of Va. a — > a. Since every System F quantified type can be 
encoded as an F w type of kind * — > *, this type application 
function can apply any polymorphic System F term. It can only 
apply polymorphic terms, because no substitution for a can make 
(Va : *. a a) into a monomorphic type. 

Pfenning and Lee used this technique to represent System F 
in Fa, . They were unable to represent System F^ in itself, but did 
achieve a representation of F„ in Fj, which extends F^ with kind 
abstraction and application in terms. It is easy to imagine that this 
is a case of infinite regress; that representing kind-abstractions will 
require another extension, which will also need to be represented if 
we hope to achieve self-representation. 

The System F type application function discussed above already 
hints at the question of infinite regress. It can apply any polymor- 
phic term typeable in System F, but is not itself typeable in System 
F. On the other hand, it is typeable in System F„, but can only apply 
some of the polymorphic terms in F„ . In particular, it cannot apply 
itself. This begs the following question, which we name the Poly- 
morphic Application problem: is it possible to define a set of poly- 
morphic application functions in a particular language, one for each 
form of application in the terms of that language (e.g., for applica- 
tions of terms to terms, terms to types, terms to kinds, etc.)? We 
conjecture that a language that supports typed self-representation 
can also support polymorphic application. 



In Section 3.2 we formalize the Polymorphic Application prob- 
lem and present a solution for Girard's System U. In later sections 
we use our solution to define our typed self-representation for Sys- 
tem U. Our result is summarized in Figure 1. Pfenning and Lee 
were able to represent System F in F w , and F w in F+. We show 
that F+ can be represented in System U, and that System U can 
represent itself. 

System U. System U was first introduced by Jean- Yves Girard 
in his PhD thesis [16], in which he also introduced System F. 
Girard used System U to formalize a version of the Burali-Forti 
paradox. Girard's paradox showed that System U is not strongly 
normalizing, and that every type is inhabited. Thus, as a logic, 
System U is inconsistent. 

System U is a Pure Type System that lies outside the A-cube 
[5], and that does not include dependent types. It is an extension of 
Fj, and every legal Fj term is a legal System U term. The terms 
of System U consist of variables and abstractions and applications 
of each of terms, types, and kinds. The types of System U consist 
of variables and abstractions and applications of each of types and 
kinds. Intuitively, the types of System U are the terms of System F. 
In Section 3.2 we show that System U can support a polymorphic 
application function for each form of application. A key property 
that makes tying the knot possible is that System U does not have 
higher-order kinds. As a result, there is no "type system" for kinds: 
all kinds are classified by a single sort □. This is analogous to the 
types of System F: System F does not have higher-order types, and 
all types are classified by a single sort *. Since System U has only 
one classifier of kinds, a representation of System U does not need 
to abstract over classifiers of kinds. 

Representation and Operations. We represent both terms and 
the types of terms. We call our term representation procedure "quo- 
tation". In section 5, we define a meta-level process of quotation, 
which formalizes what it means for one term to represent another. 
In the diagram above, our quotation function quote maps a typed 
term to its representation. Unlike the other operations in the figure, 
quote is defined outside the language itself. 




e b ei 



We support operations that iterate or fold over the representation. 
In section 6 we present three example operations defined as folds: 
a self-recognizer unquote that recovers a term from its representa- 
tion, a predicate isAbs that tests the intensional structure of a rep- 
resentation, and a typed continuation-passing style (CPS) transfor- 
mation. CPS transformation is often used in compilers of functional 
programming languages. 

Our Results. We identify System U as the first known typed 
A-calculus with decidable type checking that supports typed self- 
representation. We represent both terms and the types of terms, 
which enables operations that transform the type of their input. 
Type representations are essential to our implementation of the first 
typed self-applicable CPS transformation. The result type of the 
CPS transformation is a function of the intensional structure of the 
input type. 

Our type representations are types of a particular kind U. Type 
representations are used to type check term representations. For ex- 
ample, suppose that e is a term of type r, that q is the representa- 



tion of e, and that a is the representation of r. Then the type of 
q is Exp a. Our self-recognizer unquote recovers a term from its 
representation, so that unquote a q =p e. The type of unquote is 
Ha : U. Exp a — > Uld a. In Pure Type Systems, II is analogous to 
the V quantifier of System F and F^ . The type Uld is an operation 
on type representations that recovers a type from its representation. 
For example Uld a =p r. 

Rest of the Paper. Section 2 gives an overview of Pure Type 
Systems, Section 3 describes System U, Section 4 defines our rep- 
resentation of types, Section 5 defines our representation of terms, 
Section 6 presents our example operations, Section 7 discusses our 
implementation and experimental results, Section 8 contains a com- 
parison with related work, Section 9 discusses future work, and 
Section 10 concludes. Proofs of theorems stated throughout the pa- 
per are provided in the appendix of the full paper, which is available 
from our website [1]. 

2. Pure type systems 

We use Barendregt's [5] formalization of System U as a Pure Type 
System (PTS). This section gives an overview of some important 
aspects of PTSs for the unfamiliar reader, but does not include a 
detailed tutorial. Pure Type Systems have a uniform syntax, which 
helps to clarify both the presentation of our self-representation 
techniques, and a comparison between System U and other PTS 
instances like System F and F w . The comparison serves to ex- 
plain what parts of System U are important for achieving a self- 
representation. 

A Pure Type System is defined by a set of expressions T and a 
specification. The expressions are defined by the grammar: 

T=V\C\\V :T.T\TT\nV :T.T 

Here V ranges over a countable set of variables and C ranges over a 
set of constants. We use x, y to range over variables, c to range over 
constants, and a, b, A, and B to range over expressions. Functionals 
are introduced by the A form and eliminated by application. The 
form JJU : T ■ T introduces a product, which is used to classify 
functionals. 

The notation A — >p B denotes that A reduces to B in one step of 
/3-reduction. Similarly, A — ¥ v B denotes that A reduces to B in one 
step of //-reduction, and A — >p v B denotes that either A -^p B or 
A — ¥ v B. The relation -»p denotes the reflexive transitive closure 
of — >p, and =p denotes the least congruence relation generated by 
— Yg. The relations -»,,, = v , -»p v , and =p v are defined similarly. 

A specification of a PTS consists of a triple (5, A, 1Z). The first 
component 5 is a subset of C called sorts. We will use s to range 
over sorts. In the systems we consider, all constants are sorts. The 
second component A is a set of axioms of the form c : s, where 
c is a constant and s a sort. The third component TZ is a set of 
rules of the form (si, S2, S3), for some sorts si, S2, and S3. We use 
the shorthand (si, S2) to denote (si, S2, S2). The specification and 
a set of derivation rules determine the derivable typing judgments 
I A : B. 

In a judgment of the form F h A : B, we call A the subject and 
B the classifier of A. If T h A : B can be derived using the rules 
in Figure 2 with the specification of a particular PTS, then A is 
legal in that system. Some authors call the set of legal expressions 
the terms, though we will use term to refer to a subset of the legal 
expressions defined below. 

We call a product derived with the rule (si,S2,S3) as its 
side-condition an "(si,S2,S3) product". The rule ensures that a 
(si, S2, S3) product will be classified by S3. A product ITx : A. B 
is called a dependent product if x occurs free in B. It is standard to 
abbreviate products IIx : A. B as A — > B when x does not occur 
free in B. It is sometimes possible to determine that an arbitrary 
(si,S2,S3) product can be written in this abbreviated form. For 
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r h (As : A&) : (ILe : AS) 
rhF: (Tlx : A.B) F h a : A 
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F \- F a : B[x := a] 

Fh A: B F h B' : s B =p B' 
Fh A: B' 

Figure 2. The rules for a PTS \(S,A,TZ) 



example, in System F, a (*, *) product has the form fix : A. B, 
where x ranges over terms and A and B are types. Since System 
F does not include dependent types, x cannot occur free in B, so 
Ilx : A. B can be written A — > B. 

To demonstrate the uniformity of PTS syntax, consider the 
System F term Aa. Ax : a. x which has the System F type 
Vq.q — > a. The symbol A denotes a type abstraction. The type 
variable a is not classified, since System F does not classify types. 
The symbol A denotes a term abstraction, and the term variable 
x is classified. The universal quantifier V forms the types of A 
abstractions, and — > forms the types of A abstractions. In PTS 
syntax, the term is written \a : *. Ax : a. x, and the type is 
written Fla : *. Ilx : a. a. Here the same symbol A is used for the 
both abstractions, and the type of each A abstraction is a product. 
Since x does not occur free in a, we can also write the type as 
Fla : *. a — > a. 

Theorem 2.1 (Subject Reduction for -+ Pv [15]). IfF h A : B and 

A -» Pv A', then F h A' : B 

Theorem 2.2 (Church-Rosser for [15]). IfF h A : B and 

A -»p Ai and A -»p A2, then there exists A 1 such that Ai -»p A' 
and A2 -»p A'. 

While the focus of this paper is primarily on System U, we 
also discuss Systems F, F„ and F+. The PTS specification of 
each system is listed in Figure 3. The sorts of each is a subset 
of {*, □, A}. We divide the legal expressions of each PTS based 
on these sorts: the sort * corresponds to the terms, the sort □ 
corresponds to the types, and the sort A corresponds to the kinds. 
More precisely, suppose a legal expression A is derived by F h A : 
B. If T h B : *, then A is a term. If F h B : □, then A is a type. 
If T h B : A, then A is a kind. 

The axioms A of a PTS instance defines how the different sorts 
are related to each other. The axioms of each PTS instance listed 
in Figure 3 are a subset of {*:□,□ : A}. The axiom (* : □) 
means that □ is the classifier of * and that types classify terms. The 
axiom (□ : A) means that A is the classifier of □ and that the 
kinds classify types. We call the classifier of a term its type, and the 
classifier of a type its kind. 

The rules TZ determine which products are legal in a PTS in- 
stance. The rules TZ of each PTS instance listed in Figure 3 are a 
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Figure 3. PTS specifications of key calculi 



subset of {(*, *), (□, *), (□, □), (A, *), (A, □)}. The rule (*, *) 
derives terms that abstract over other terms, the types of which 
are (*, *) products. The rule (□, *) derives terms that abstract over 
types, the types of which are (□, *) products. The rule (□, □) de- 
rives types that abstract over other types, the kinds of which are 
(□, □) products. The rule (A, *) derives terms that abstract over 
kinds, the types of which are (A, *) products. The rule (A, □) de- 
rives types that abstract over kinds, the kinds of which are (A, □) 
products. 

In each PTS of Figure 3, legal products are either types or kinds. 
A product type is a legal product that is a type. It is necessarily a 
(s, *) product. A product kind is a legal product that is a kind. It is 
necessarily a (s, □) product. 

We adopt a naming convention to help distinguish between 
terms, types, and kinds. Names starting with lower-case letters such 
as e refer to terms. Names starting with upper-case letters and the 
greek letters a, /?, r, and a refer to types. Greek letters k and \ 
refer to kinds. 

Systems F and F„ are part of the A-cube [5], while F+ and U are 
not because of the rules (A, *) and (A, □). All except System U 
are strongly normalizing. Girard's thesis [16] proved that System 
U is not strongly normalizing. In particular, there exists a legal 
term in System U with the type Ila : *.a that does not have 
a normal form. However, the types and kinds of System U are 
strongly normalizing. 

Type checking is decidable for each of System F, F„, F^, and U 
[6]. This relies on that each system is injective [14], a technical 
property of Pure Type Systems. An injective PTS also has the 
property that types are unique [5]. 

None of the PTS instances shown in Figure 3 have dependent 
types (e.g., types that abstract over terms), which require the rule 
(*,□). A consequence of this is that any (*, *) product Ilx : n. r 2 
can be written n — > T2 ■ Types cannot depend on terms, so x cannot 
occur free in T2 ■ 

3. System U 

In this section we define a decomposition of System U product 
types and use it to solve the Polymorphic Application problem for 
System U. The ideas in this section recur throughout the paper: in 
the definition of type representations in Section 4; in the decompo- 
sition of type representations in Section 4; and in the definition of 
term representations in Section 5. 

3.1 Decomposing Product Types 

In a pure type system, products are always classified by a sort. The 
sort of types is *, so product types are products classified by *. 



The product types of System U are formed by (*,*), (□,*), and 
(A,*). In general, if a product IIx : A. r is formed by (s, *), 
then r is classified by * (i.e. r is a type) and A is classified by 
s. System U products formed by (*, *) and by (A, *) are special 
cases. A (*, *) product of the form Fix : t\ .T2 is special because the 
bound variable x cannot occur free in r 2 (i.e. types cannot depend 
on terms). Products formed by (A, *) are special because the only 
subject classified by A is □. 

Theorem 3.1. In System U, ifF h A : A, then A = □. 

Proof. By induction on the height of the derivation. Assume F h 
A : A. We proceed by considering the last rule in the derivation. If 
the last rule is axioms, then (A : A) £ A. The only possibility 
is (□, A), so A — □ as required. If the last rule is start, then 
(A : s) G A. Contradiction. If the last rule is weakening, then 
T = Ti, x : C and F\ h A : A. By induction, A = □ as required. 
If the last rule is product, then there exist sorts si,S2 such that 
(si, S2, A) G TZ. Contradiction. If the last rule is abstraction, then 
A = Ila; : A.B. Contradiction. If the last rule is application, then 
B[x := a] = A. There are two cases: either B — A, or a — A. 
If B — A, then (Tlx : A. A) must be legal. This in turn requires 
a sort s and an axiom A : s. Contradiction. If a — A, then there 
must exist a term A such that F h A : A. Contradiction. If derived 
by conversion, then there must exist a sort s such that F h A : s, 
which in turn requires an axiom A : s. Contradiction. □ 

In words, Theorem 3.1 states that System U does not include 
a "type system" for kinds. The situation is similar for the types of 
System F, as it does not include a kind system (which is a "type 
system" for types). In the PTS formulation of System F, the only 
subject classified by □ is *. As we will see, Theorem 3.1 is a key 
property of System U that enables self-representation. 

Theorem 3.2. If F h r : *, and r is a normal form, then r is of 
one of the following forms: 

a Ai ... A n where a is a type variable, 
n — > T2 where F h r\ : * 

Ha : k. Ti where F h k : □ 
ITx : □• Ti 

Since we are only interested in decomposing product types (and 
not applications of the form a T\ ... r n ), we only consider the 
last three cases. We begin by defining a constructor for each case 
of product, corresponding to the rule (s, *) that forms the product. 

Definition 3.1 (Constructors for product types). We define the 
following constructors for product types: 

7r* = Aa : *. A/3 : *. a — > /3 

Tin = Ax : □• Aa : \ -> *-W ■ X- a 

7ta = Aa : □ — > *.Fix : □■ a x 

It is straightforward to check that the product type constructors 
have the types given by the following judgments: 

(} h 7T* 

() I- 7T 0 : Fl X ■ □• (X -> *) -> * 

() h 7Ta :(□—>*)—>* 

Every product type formed by (s, *) can be equivalently expressed 
as an application of the constructor n a . This is akin to a higher order 
abstract syntax encoding of product types [30]. 

Theorem 3.3 (Decomposition of product types). For any legal 
(*, *) product n — > T2, any legal (□, *) product Ila : n. t, and 
any legal (A, *) product Fix '■ O. t, we have: 

Tl — > T2 =fi H t T\T2 

Ila : k. t =p 7r n k (Aa : n. r) 
IIx : □■ t =/3 ta (Ax : □• t) 



Below we define the components of a product to be the argu- 
ments of the constructor that yield an equivalent type. 

Definition 3.2 (Components of products). 

• The components of a (*,*) product type T\ — > T2 are T\ and 
Ti. 

• The components of a (□, *) product type Ila : K. r are K and 
Aa : k. t. 

• The component of a (A, *) product type Fix '■ O.risXx ■ O.t. 

The following theorem states that the components of a product 
are always legal in the same environment as the product itself. 

Theorem 3.4 (Types of product components). 

1. If r h (IIx : n. T2) : * and F h Ti : *, then F h T2 : *. 

2. If F h (Ila : k.t) : * and F h k : □, then 
F h (Aa : k. t) : K — > *. 

3. If F h (n X : □. r) : *, then F h (Ax : □. r) : □ — >■ *. 

As stated earlier, the key properties of System U that enable our 
self-representation technique are that product types can be decom- 
posed, and that terms and types can abstract over the components. 
The components of a (*, *) product are two types, and can be ab- 
stracted in terms and types by the rules (□, *) and (□,□), respec- 
tively. The components of a (□, *) product are a kind and a type, 
and can be abstracted in terms by the rules (A, *) and (□, *), and 
in types by (A, □) and (□, □). The single component of a (A, *) 
component is a type, and can be abstracted over in terms and types 
by (□, *) and (□,□). These properties will play key roles in our 
solution of the Polymorphic Application problem (Section 3.2), and 
in the representation of types (Section 4) and terms (Section 5). 

3.2 Polymorphic Application 

We can now formalize the requirements of a polymorphic applica- 
tion functions and state the Polymorphic Application problem for a 
class of Pure Type Systems. 

Definition 3.3 (Standard PTS). A PTS \(S, A, TZ) is standard if: 

• The designated sort * G 5 classifies the types of terms. 

• For each sort s G S, (s : *) G' A. 

• If (si , S2, *) G TZ, then s 2 = *. 

The first condition of a Standard PTS establishes * as the sort 
corresponding to terms. The second condition states that terms do 
not classify anything. The third condition states that if a term is 
an abstraction, then its body is also a term. The systems listed in 
Figure 3 and those in the A-cube are all standard. 

Definition 3.4 (Polymorphic Application Function). Let A(<S, A, TZ) 
be a Standard PTS, let (s, *) G TZ, and letp be a legal closed term. 
We say that p is a polymorphic application function for the (s, *) 
products o/A(<S, A, TZ) if it satisfies the following two conditions: 

• p is of the form 

Xxi : A\. . . . Xx n ■ A n . Xx : (II61 : B.t). A62 : B. xb 2 
for some x\, ... x n ,Ai, ... j4„, 61,62, B ,r such that 
X\ '. A\ , . . . , Xn ■ An h B : s. 

• For every closed (s, *) product a of X(S, A, TZ), there exist 
legal expressions 01 , . . . , o„ such that 

() h p ai . . . a n : a — > a 

The first condition defines the form of a polymorphic applica- 
tion function for (s, *) products. The n outermost abstractions are 
what make it polymorphic: they abstract over the component(s) 
of such products. The term under the n outermost abstractions, 



\x : (II&i : B.t). A&2 : B. x 62, should be an application function 
for an arbitrary (s, *) product. The second condition states that we 
can obtain an application function for particular closed (s, *) prod- 
uct by n applications. 

Definition 3.5 (Polymorphic Application Problem). For a Stan- 
dard PTS A(<S, A, TV), we say that \(S, A, 1Z) supports polymor- 
phic application if there exists a legal polymorphic application 
function polyapp,, for every rule (s, *) £ 1Z. 

For example, a solution of the Polymorphic Application prob- 
lem for System F requires two polyapp functions that are legal Sys- 
tem F terms: a polyapp, function to apply terms to terms, and a 
polyappn function to apply terms to types. We conjecture that no 
legal polyapp n function exists for System F, and therefore that the 
Polymorphic Application problem for System F is impossible. 

We now show how to solve the Polymorphic Application prob- 
lem for System U. The solution consists of three application func- 
tions: polyapp,, polyappn, and polyappA- Later we will use the 
techniques from this section to define our representations of types 
and terms. 

Term applications. Our first polymorphic application function 
polyapp, applies terms to terms. Terms that can be applied to 
other terms have (*, *) product types of the form ti — > T2, where 
(} h Ti : *. An application function for terms of type n — > ti will 
have the type (n — > T2) — > Ti — > T2, and can be implemented as: 

Af : Ti — > T2 . Aa : n . f a 

By Theorem 3.4, we have that {) h 12 : *. Therefore, we can 
make this polymorphic by abstracting out n and T2. The resulting 
function, polyapp,, implements application of (*, *) functions: 

polyapp, = Ati : *. At2 : *. Af : Ti — > T2. Aa : Ti. f a 

The abstractions of n and r 2 are type abstractions formed by 
(□,*). The type of polyapp, is: 

IIti : *. Ht2 : *• (n — > r 2 ) — >• Ti — >■ T2 

Lemma 3.1. polyapp, is a polymorphic application function for 
(*, *) products in System U. 

Proof. We have already seen that polyapp, is legal. It is easily 
checked that it has the required form, and that n : *,T2 : * h 
n : *. Let ai — > 02 be closed a (*, *) product in System U. By 
Theorem 3.4, the components ai and 02 are both closed types of 
kind *. Therefore polyapp, o\ 02 ■ (ci — ► 02) — > o"i — > 02 as 
required. □ 

Type applications. Our second polymorphic application func- 
tion polyapp D applies terms to types. Terms that can be applied to 
types have (□, *) product types of the form Ila : n. r, where a 
ranges over types of kind k and r is a type. Based on the type rules 
in Figure 2, an application function for terms of a particular (□, *) 
product type Ha : k. r should have the type: 

(Ila : k.t) -+U/3:k. (r[a := /?]) (t) 

Here r[a := /3] denotes the type obtained by substituting /3 for a 
in t. The syntax r[a := /3] is not part of our language of types, but 
can be expressed as (Aa : k. t) /3. Letting r' denote Aa : k. t, we 
can write (t) as: 

(Ila : k. t a) ->■ U/3 : k. t /3 

We can implement a polymorphic application function polyapp D 
for (□, *) products by abstracting over k and r', which are the 
components of Ila : k. t. Theorem 3.4 states that k has sort □ and 
t' has kind □—>•*. 

polyapp n = Ak : o.Xt' : k — > *.Af : (fla : k. t'o). A/3 : k. f /3 



The first two abstractions of polyapp n bind the components of an 
arbitrary (□, *) product type. The third abstraction binds a term of 
the corresponding product type. The final abstraction binds the type 
argument. The type of polyapp D is: 

Yin : □. Ut' : k — > *. (Ua : k. r a) — > II/? : k.t' fi 

Lemma 3.2. polyapp n is a polymorphic application function for 
(□, *) products in System U. 

Proof. We have already seen that polyapp n is legal and has the 
required form. It is easily checked that k : □, t' : k — > * h k : D. 
Let (Ila : m.cr) be a closed, legal (□, *) product in System U. 
Then ki is closed and classified by □. By Theorem 3.4, we have 
that (Aa : m. a) is closed and has kind k\ — > *. It is easily 
checked that we can derive (} h polyapp n ki (Aa : m . a) : (Ila : 
Ki. cr) — ¥ (Ila : Ki. a), as required. □ 
Kind applications. Our last polymorphic application function 
polyapp A applies terms to kinds. Terms that can be applied to types 
have (A, *) product types of the form Ilx : □. t, where \ ranges 
over kinds and r is a type. An application function for terms of a 
particular (A, *) product type Ilx '■ O. t should have the type: 

(n X i : D.t) -> n X 2 : D.t[xi := X2] (J) 

This type is similar to (t), with one important difference: whereas 
the type variables a and j3 are classified by an arbitrary kind k, the 
kind variables xi and X2 can only be classified by □ (by Theorem 
3.1). We express the substitution as (Axi : □• t) X2- Letting r' 
denote A X i : □. r, we can write (J) as: 

(nxi : □• T xi) -> n X 2 : □• T X2 

Theorem 3.4 states that r' has kind □—>■*. Therefore, we can 
implement a polymorphic application function for (A, *) as: 

polyapp A = At' : □ -> *. Ax : (IIxi : □• r Xi)- ^X2 : □. x X2 

The first abstraction of polyapp A is a type abstraction that binds the 
sole component of an arbitrary (A, *) product type. The second 
abstraction binds a term of the corresponding product type. The 
final abstraction binds the kind argument. The type of polyapp A is: 

polyapp A : Ut' : □ -»• *. (IIxi : □• r Xi) -> H X 2 : □• r X2 

Lemma 3.3. polyapp A is a polymorphic application function for 
(A, *) products in System U. 

Proof. We have already seen that polyapp A is legal and has the 
required form. It is an axiom of System U that □ is classified by 
A. Let (Tlx : A.a) be a closed, legal (A, *) product in System U. 
Then A is closed and classified by A. By Theorem 3.1, A = □. 
By Theorem 3.4, we have that (Ax : □. a) is closed and has kind 

□ —>•*. It is easily checked that we can derive () h polyapp A (Ax : 

□ . a) : (Ilx : □• cr) — > (Ilx : n - cr ). as required. □ 

It is notable that the definition of polyapp A uses every rule of 
System U. The abstractions over x, r', and X2 are formed by (*,*), 
(□, *), and (A, *), respectively. The type constructor tya is type- 
level function formed by (□, □), and the kind □ — > * of t' is 
formed by (A, □). 

Theorem 3.5. System U solves the Polymorphic Application Prob- 
lem. 

Proof. Lemmas 3.1, 3.2, and 3.3 show that there exist legal poly- 
morphic application functions in System U for each of its (s, *) 
rules: (*,*),(□,*), and (A, *). □ 

Our polyapp functions we rely on two properties of System U: 
that we can decompose product types (Theorem 3.3), and that □ is 
the only subject classified by A (Theorem 3.1). System U appears 
to be a local minimum (excluding the trivial PTS with 1Z = 0): 
each of the rules (*, *), (□, *), (□, □), (A, *), (A, □) is important 
for our solution. 



System F 
System F w 
System F+ 
System U 



(*! *) 

/ 
/ 
/ 
/ 



(□, * 
x 
x 
/ 
/ 



(A,*) 



x 
/ 



Table 1. Polymorphic application functions in our PTSs. 

3.3 Polymorphic application in other systems 

That □ is the only subject classified by A is a key to solving the 
Polymorphic Application problem for System U: it avoids the need 
to abstract over □, which is impossible in System U. However, 
there is more to the story - in System F, * is the only subject clas- 
sified by □, and yet it appears that Polymorphic Application is im- 
possible in System F. The question of whether a PTS supports Poly- 
morphic Application seems to require whole-system consideration. 
We do not know of a simple test that can answer this question for 
an arbitrary PTS, and leave the formulation of such a test for future 
work. 

We conjecture that Polymorphic Application is not possible 
for System F, F w , or F+. Table 1 summarizes the polymorphic 
application functions that can be implemented in each system using 
the techniques of Section 3.2. Cells marked with / indicate that a 
polyapp s function for (s, *) products can be defined in the system. 
Cells marked with x indicate that the definition of polyapp s in 
that system seems to be impossible. Empty cells indicate that (s, *) 
products are outside the system. 

The first column shows that polymorphic application functions 
for (*, *) products can be implemented in all four languages. This 
is because a (*, *) product can be decomposed into two types of 
kind *, and each language includes terms that abstract over types 
of kind * via the (□, *) rule. 

System F does not support a polyapp n function for applying 
terms to types. In System F, decomposing (□,*) products (i.e. 
quantified types) requires higher-order types, which in turn require 
the rule (□, □). 

System F w can implement a polymorphic application function 
for System F (□, *) products, but not for its own (□, *) products. 
Since all System F types have kind *, all (□, *) products in System 
F have the form Ha : *. r. These can be decomposed into a single 
component Xa : *. r, which has kind * — y * in F„. Since F^ 
includes higher kinds, a polyapp n function for F^ should abstract 
over the kind, as we did in the polyappn for System U. Since F^ 
does not include the rule (A, *) needed for kind abstraction in 
terms, it cannot implement polyapp D . 

System F+ can implement polyapp n because it includes the 
rule (A, *). However, it can't implement polyappA because (A, *) 
product types can't be decomposed in F+. Decomposing (A,*) 
products requires kind-polymorphic types, which in turn require 
the rule (A, □). 

The techniques used to implement these polymorphic applica- 
tion functions can also be used to build typed representations. Thus, 
we can interpret the results of Table 1 to mean: System F can be 
represented in F w , F^ can be represented in Fj, F^ can be repre- 
sented in U, and U can be represented in itself. In sections 4 and 5 
we will use the techniques from this section to build representations 
of types and terms. 

4. Representing Types 

In this section, we define a process for representing types of kind *. 
Type representations are themselves types. We are primarily inter- 
ested in term representations, and the purpose of type representa- 
tions is to enable more typed operations on term representations - 



in particular, operations like CPS transformation that transform the 
type of a program in a non-trivial way. 

Since the purpose of type representations is to support typed 
operations on term representations, we only represent types of kind 
*, which are the types of terms. We do not represent higher-order 
types like \a : *. a, which has the kind * — > *. We only represent 
types in normal form - products, variables, and applications of 
variables to one or more types. While the terms of System U are not 
strongly normalizing, the types are. This ensures that any type of 
kind * can be normalized and represented. While we only represent 
closed terms, it is important that we can represent open types. This 
is because we will represent not only the type of the top-level term 
being represented, but also the type of each of its subterms. Type 
representations should support type functions that depend on the 
intensional structure of their inputs. These play an important role 
in the implementation of our typed CPS transformation in Section 
6.3. We summarize the requirements for our representation of types 
below. 

Definition 4.1. The requirements for our type representation pro- 
cedure are: 

• Only legal types can be represented. 

• Every legal normal-form type of kind * can be represented. 

• Type representations support operations that fold over the 
structure of the type. 

Constructors for Type Representations. We represent types 
using higher order abstract syntax (HOAS), inspired by [27] and 
[30]. Type representations are types of kind U, which is defined 
inductively from four constructors. Theorem 3.2 states that a type 
of kind * is either an application of a type variable to zero or more 
arguments, or a product derived from one of the rules (*, *), (□, *), 
or (A, *). Our type representation includes a constructor for each 
case. 

Definition 4.2 (Constructors of Type Representations). The kind U 
is defined inductively by the constructors: 



() h Var 
() h Prod, 
() h Prod n 
() h Prod A 



* -> U 

(n x :□.(*-► U) 
(□ U) -»• u 



u) 



The constructor Var builds representations of type variables 
applied to zero or more types. The constructors of Prod, , Prod n and 
ProdA build representations of (*, *), (□, *) and (A, *) products, 
respectively. Their types are similar to those of the constructors 7r* , 
no, and 7ta defined in Section 3.1, except that they construct types 
of kind U instead of types kind *. The body of this paper will keep 
the definitions of U and its constructors abstract. The appendix of 
the full paper gives concrete definitions of U and its constructors as 
System U terms. 

Buifding Type Representations. The procedure d> for build- 
ing type representations is defined in Figure 4. It takes as input the 
derivation of a normal form type of kind * and outputs a represen- 
tation of the type. The representation of a product type depends on 
whether it is a (*, *) product, a (□, *) product, or a (A, *) product. 

An application of a variable to zero or more types is represented 
by applying the constructor Var to it. A product formed by (*, *) 
has the form n — > Ti, where n and T2 are each of kind * . It is rep- 
resented by applying the constructor Prod, to the representations 
of n and T-2. A product formed by (□, *) has the form Ila : k. t, 
where r has kind * and a may occur free in r. We build the rep- 
resentation of t in the environment T, a : k, and abstract over a 
in the representation o. The result has kind k — > U in the envi- 
ronment r. We then apply the constructor Prod n to the kind k and 
the resulting abstraction. A product formed by (A, *) has the form 



r h a A\ . . . A n : * > Var (a Ai ... A n ) 

r h T\ : * D> ffi r h 72 : * t>(72 

r I- n — > T2 : * D> Prod, g i o"2 

rhu: □ r,a:sl-T:*t>ff 
T h (Ila : k.t) : * > Prod n k (Aa : /t.cr) 

r,x:nl-T:*l>cr 
T h (Ilx : D.r) : * D> Prod A (Ax : □■<r) 



Figure 4. Type Representation Procedure 



Ilx '■ O. t, where r has kind * and \ mav occur free in r. We 
build the representation of r in the environment Y,x '■ □, and ab- 
stract over x in the representation cr. The result has kind □ — > U 
in the environment T. We then apply the constructor ProdA to the 
resulting abstraction. 

Theorem 4.1 (Kinds of type representations). If T h r : * and 
T I- r : * D> a, then T h a : U. 

Example 4.1. The type of the polymorphic identity function, Ha : 
*.a — > a, is represented as Prodn * (Aa : *.Prod« (Vara) (Vara)) 

When context T of the derivation T h r : * is clear, we write r 
to denote the type a such that T h r : * E> a. 

Folds over type representations. Our type representation en- 
ables operations that fold over the structure of the type. A fold is 
defined by supplying case functions for each case of the structure 
of types of kind *: variables (or type applications with a variable 
in function position), (*, *) products, (□, *) products, and (A, *) 
products. 

Case functions for type variables have kind * — > *. Variables 
are the base case for our inductive type representation. The fold 
function maps an input variable to some type of kind *. Since we 
only represent types of kind *, the input type variable must have 
kind *. Case functions for (*, *) products of the form n — > t 2 
have kind Its two arguments of kind * correspond 

the results of folding over n and T2. Case functions for (□,*) 
products of the form Ila : k. t have kind Ilx ; (x *) *■ 
An argument type of kind (x — > *) will be the result of folding 
over a type in which a type variable of kind \ can occur free. Case 
functions for (A,*) products of the form II^ : □. r have kind 
(□ — > *) — > *. An argument type of kind (□—>•*) will be the 
result of folding over a type in which a kind variable can occur 
free. 

Definition 4.3. Suppose var, prod t , prod n , and prod A satisfy: 

() h var : * — > * 
() h prod,, 

0 I" prod n : nx : □• (x *) * 

() h prod A :(□—>*)—>* 

Then Fold[var, prod^ , prod n , prod A ] denotes the type F such that 
{) V- F : U -> *, and: 

F t =p var t if r is of the form ct A\ ... A n 

Fte,j prod t (F Tf) (F Tq) if r = n — > r 2 , T h n : * 

Ft =/3 prod n n (Aa : k. F tT) if t = Ila : K.n, T h k : □ 

Ft =p prod A (Ax : □• F Ti) if t = Ilx : □• Ti 

Our first example of an operation on type representations is 
listed in Figure 5. Uld recovers a type from its representation. The 



Uld = Fold[(Aa : *. a), 7r» , ir D , tta] 



Figure 5. A function that recovers a type from its representation 

case function for variables is the identity. The case function for each 
product type is the corresponding constructor. 

Theorem 4.2. If T h r : *, then Uld f =p r. 

We define the components of type representations similarly to 
the components of types: 

Definition 4.4 (Components of product representations). 

• The components of the representation of a (*, *) product type 
Ti —} T2 are tJ and 

• The components of the representation of a (□, *) product type 
Ha : k. t are k and Xa : k. t. 

• The component of a (A, *) product type H\ '■ D.risXx ■ D.T. 

5. Representing Terms 

In this section we define a process quote(-) that builds representa- 
tions of terms. We begin by establishing the requirements for our 
representation. First and foremost, we should be able to represent 
every legal term in the language, and representations should them- 
selves be legal terms. All representations should be strongly nor- 
malizing, even if they represent a non-normalizing term. In order 
to be considered useful, we require our representations to support 
operations that fold over the structure of the term. We summarize 
our requirements typed representation of terms below. 

Definition 5.1 (Requirements for term representation). 

• Only legal terms can be represented. 

• Every closed legal term can be represented. 

• All representations are strongly normalizing. 

• Representations support folds. 

Given these requirements, what is required to type check repre- 
sentations? Since a representation has different semantics than the 
term it represents, we expect its type to also be different. On the 
other hand, we expect the types of a term and its representation 
to be related. This allows typed operations with result types that 
depend on the type of the input term. 

5.1 Representation using PHOAS 

We represent terms using typed Parametric Higher Order Abstract 
Syntax (PHOAS) [12, 35]. The use of PHOAS allows our repre- 
sentation to support multiple operations with different result types. 
Recall that our type representation, which uses a simpler non- 
parametric HOAS, only supports operations that produce results of 
kind *. In each case we choose the simplest representation for our 
needs. 

Our representations have types of the form Exp r, where r is 
a type representation. The type Exp is defined in Figure 6. It is 
parametric in a type R of kind U — > *, which is supplied by 
each operation and determines the result type of the operation. 
Instantiating a representation of type Exp r with a result type R 
yields the type PExp R r, which can be read "Exp r specialized to 
parameter R". 

The specialized representation type PExp is inductively defined 
by the constructors listed in Figure 6. There is a constructor for each 
form of the terms of System U. System U terms are either variables, 
A abstractions, or applications. The abstractions and applications 
can be formed by the rules (*, *), (□, *), or (A, *). 

Our quotation procedure quote(-) is defined in Figure 7. It relies 
on a pre-quotation procedure ► defined in Figure 8. Given a term 



mkVar : IIR : U — > *. Yla : U. R a — > PExp R a 

mkAbs, : IIR : U -> *. Ila : U. n/3 : U. 

(Ra-> PExp R 0) -> PExp R (Prod, a /3) 

mkAp P< , : nR : U -> *. na : U. n/3 : U. 

PExp R (Prod, a /3) ->• PExp Ra-> PExp R /3 

mkAbsn : nR : U -> *. n K : □. na : (k -> U). 

(n/3 : k. PExp R (a /?)) -> PExp R (Prod n k a) 

mkApp n : nR : U -> *. IIk : □. Ha : (k -> U). 

PExp R (Prod n k a) -> n/3 : k. PExp R (a /3) 

mkAbsA : nR : U -> *. na : □ -»■ U. 

(n X : □• PExp R (a x)) -> PExp R (Prod A a) 

mkApp A : nR : U -> *. na : □ -> U. 

PExp R (Prod A a) -»• IIx : □• PExp R (a x) 

Exp = Aa : U. nR : U -> *. PExp R a 



Figure 6. Representation Constructors 



(} h e : r ► q 

quote(e) = A R : U — > *. q 



Figure 7. Quotation 



of type t, the pre-quoter produces a term of type PExp R r. Then 
quote(-) simply abstracts over R in the result. 

The pre-quoter embeds type representations within term rep- 
resentations. This is a key to supporting operations like CPS that 
transform the type of their input. As is common in HOAS repre- 
sentations, we use abstractions to bind the free variables of a rep- 
resentation. For example, if a : n h e ► q, then a may occur free 
in q. We close q by abstracting over a. If q has type PExp R f, 
then Aa : K.q has type na : n. PExp R r. This reflects that the 
representation has a free variable, and enables substituting for a by 
application. 

The first rule of pre-quotation handles variables. Representa- 
tions of variables are constructed using mkVar. Variables are rep- 
resented metacircularly [28], that is, using other variables. In par- 
ticular, a variable of type r is represented using a variable of type 
Rt. 

Abstractions formed by (*, *) bind term variables in terms, and 
have types of the form n — > Ti. Their representations are con- 
structed using mkAbs, . The types rT and are the components of 
Ti — > T2- The premise r, x : n h e : T2 ► q builds a representation 
of the body in the extended environment T, x : t\. The abstraction 
Ax : R ti . q binds the free variable x in the representation of e. 

Applications formed by (*, *) apply terms to terms. An appli- 
cation ei t2, where ei has the type T2 — > t, is represented by ap- 
plying the constructor mkApp,, to the components of T2 — > r, and 
the representations of ei and e2 . 

Abstractions formed by (□,*) bind type variables in terms, 
and have types of the form na : k. t. Their representations are 
constructed using mkAbs D . The kind k and type Aa : k. t are 
the components of na : k. t. The premise r, a : /t h e : t ► q 
builds a representation of the body in the extended environment 



r h t : * 

r h x : t ► mkVar Rti 

r h ti : * r, x : Ti h e : T2 ► q 
r h (Aa; : Ti.e) : t\ — > T2 ► mkAbs, RtT T2 (\x : Rri.q) 

T h t 2 : * r h ei : t 2 — > r ► qi F h C2 : T2 ► <J2 
r h ei e 2 : r ► mkApp,, RT 2 ~rq 1 q 2 

F h k : □ r, a : k\- e : t >■ q 
F h (Aa : K.e) : (na : k.t) ► mkAbs n R k (Aa : k.t) (Aa : K.q) 

F h k : □ The: (na : k.t) ► q 

(r[a := n]) ~> (r[a := n]) = c 
Then: (r[a := n]) ► c (mkApp n R k (Aa : k.t) q n) 

r,x:Dl-e:T>-g 

T h (A X : D.e) : (IT* : D.t) ► mkAbs A R (Ax : D.t) (A X : a.q) 

r h e : (n X : D.t) ► q 

r h e k : (t[x := «]) ► mkApp A R (Ax : O.t) q k 



Figure 8. Pre-quotation 



r, a : k. The abstraction Aa : k. q binds the free variable a in the 
representation of e. 

Applications formed by (□, *) apply terms to types. Only the 
term is represented; the type argument is not represented, even if it 
is of kind *. The constructor mkApp n is applied to the components 
of the na : k.t, the representation q of the term e, and the type 
argument n. The result is a term of type PExp R T[a := n]. A 
coercion c of type PExp R (f[a := ti]) — > PExp R (r[a := Ti]) 
is generated by the binary operation ~->. Coercions are discussed 
further below, and full detail is given in the appendix to the full 
paper. 

Abstractions formed by (A, *) bind kind variables in terms, 
and have types of the form nx : □. t. Their representations are 
constructed using mkAbsA • The type Ax : □ . t is the component 
of nx : O.t. The premise F,x '■ O \~ e : r >■ q builds a 
representation of the body in the extended environment T, x : 
□ . The abstraction Ax : □• q binds the free variable \ in the 
representation of e. 

Applications of products formed by ( A, *) apply terms to kinds. 
Again, only the term is represented. The constructor mkApp A is 
applied to the component of nx .D.t, the representation of the 
term, and the kind argument. 

Example 5.1. Let id = Aa : *.\x : a.x. 

quote(id) =AR : U — > *. 

mkAbsn R * (Aa : *. a — > a) 
(Aa : *. rnkAbs, Ra a 

(Xx : R a. mkVar R a x)) 

In bottom-up order, the mkVar term corresponds to the output 
of the pre-quoter ► on the derivation a : *, x : a h x : a, the 
mkAbs* term to the output on a : * h (Ax : a. x) : a — ¥ a, and 
the mkAbs n term to the output on (} h id : (na : *.a — > a). At 
the top-level, quote(id) abstracts over R in the pre-quotation of id. 

For convenience, we define a notation e as we did for type 
representations, though its definition is slightly different. When e 



is a term, e denotes its pre-quotation, which allows us to use e even 
when e is not closed. 

r h e : t ► q () h F : U ^ * 

e = g[R := F] 

We allow the environment T and the result type function F to be 
implied by the context. 

Since variables are represented by variables with different types, 
we define a representation environment T in which pre-quotations 
are legal. We define T inductively by the following rules. We allow 
the result type function F to be implied by context. 

Definition 5.2 (Representation Environment). 

0=0 

r,x:r=r,x:Fr if T h r : * 
r, a : k = T, a : k if T h n : □ 

r,x : □ = r, x : □ 

We now formalize the types of pre-quotations and quotations: 

Theorem 5.1. //Their and () h F : U — > *, then 
The: PExp F f. 

Theorem 5.2 (Types of quotations). If () h e : r : *, and 
quote(e) = q, then (} h q : Exp r. 

Theorem 5.3. //quote(e) = q, then q is strongly normalizing. 

Authors traditionally define a representation in A-calculus to 
be a normal form [22, 23, 27]. We follow Pfenning and Tee [26] 
and define constructors for our representation, which allow us to 
abstract away the details of our encoding. Representations built 
from our constructors are not normal forms, but reduce to normal 
forms in a few predictable steps. We provide an example in the 
appendix to the full paper [1]. It is also possible to define a quoter 
that produces closed normal forms. 

5.2 Tying the knot 

Theorem 5.2 states that our quotation procedure is complete: ev- 
ery legal System U term can be represented. We achieve self- 
representation using the techniques developed for our solution to 
the Polymorphic Application problem in Section 3.2. The type of 
each polyapp s function is related to the types of the corresponding 
representation constructors mkAbs s and mkApp s . 

Each polymorphic application function polyapp s abstracts over 
the components of (s, *) product types. We can use Uld to define 
a version of polyapp s that abstracts over the components of (s, *) 
type representations. For example, polyappA could be defined as: 

Aa : □ -> U. Xx : Uld (Prod A a). \\ ■ □• x \ 

The application of x to \ ls legal because Uld (ProdA a) is 
equivalent to Ilxi : □• Uld (a xi). This version of polyappA can 
have either of the following equivalent types: 

• Ila : □ -S- U. (Ilx : □• Uld (a x)) -> Uld (Prod A a) 

• Ila : □ U. Uld (Prod A a) -> Ilx = □■ Uld (a x) 

If we replace Uld with PExp R in the first type and abstract over 
R, we get the type of mkAbsA- The same operation on the second 
type yields the type of mkAppA . 

We summarize the results of Section 3.2, Section 4, and Section 
5 as follows: Every form of product type in System U can be 
decomposed, and we can implement a polymorphic application 
function by abstracting over the components. Further, every form of 
product type in System U can be represented. Type representations 
can also be decomposed and the components can be also used to 
define a polymorphic application function. Finally, we can combine 
our polymorphic application functions with standard representation 
techniques to achieve self-representation. 



Abs„ = AR : U -> *. Ila : U. U/3 : U. 

(Ra-iR/?)->R (Prod, a /3) 
App„ = AR : U -> *. Ila : U. U/3 : U. 

R (Prod, al3)^Ra^R/3 

Abs n = AR : U -> *. IIk : □. Ila : (k -> U). 

(U/3 : k. R (a /?)) -> R (Prod n k a) 
App Q = AR : U — > *. U.K : □. Ila : (ft — > U). 

R (Prod n k a) -S- U/3 : k. R (a [3) 

Abs A = AR : U -> *. Ila : □ -> U. 

(Ilx : □• R (a X)) -> R (Prod A a) 
App A = AR : U -> *. Ila : □ -> U. 

R (Prod A a) -»■ U X ■ □• R (a x) 



Figure 9. Types of Case Functions 



5.3 Folds over term representations 

Our representation of terms is designed to support operations that 
fold over the structure of the term. A fold is defined by six case 
functions, one each for abstractions and applications formed by 
(*, *), (□, *), and (A, *). The result of a fold is defined by induc- 
tion on the structure of the term. For each term, the corresponding 
case function is applied to the the results of folding over its sub- 
terms. This is made formal below. 

The types of the case functions of a fold are defined in 9. 
The types App„, App n , and App A and are similar to the types 
of our Polymorphic Application functions polyapp,,, polyapp n and 
polyapp A from Section 3.2. Each App s types and the type of 
each polyapp s function relies on the idea of decomposition. The 
difference is that the App s types deal with components of type 
representations, while the types of the polyapp s functions deal with 
components of product types. 

The specification of an operation on term representations con- 
sists of a result type R, a witness of type Witness R, and six case 
functions. The witness ensures that for all types r and n such that 
T, a : k h r : * and T h T\ : k, the quoter can synthesize a coer- 
cion of type: PExp R (r[a := Ti]) — > PExp R (r[a := Ti]). These 
coercions are necessary in order to represent type applications. The 
semantics of a coercion thus depends on the witness, which gives 
us the flexibility needed to support multiple operations on a single 
generic representation. We will say more about the coercions for 
each of our operations in the following section. Witnesses and co- 
ercions are described in greater detail in the appendix to the full 
paper. 

Definition 5.3. Suppose F, w, abs„, app t , abs n , app n , absA, and 
app A satisfy: 

() h F : U -> * 

() h w : Witness F 

() h abs„ : Abs„ F (} h app„ : App„ F 

(} h abs n : Abs n F () h app n : App n F 

(} h absA : AbsA F (} h app A : App A F 

Then fold[F, w, abs* , app,,, , abs n , app n , absA , app A ] denotes a term 
f such that () h f : Ila : U.PExp Fa->Fo, and for any context 
T, term e, and type r such that T h e : r, we have that: 



w : Witness Uld Bool = Ila : *. a — > a — > a 

id, = Aa : U. X/3 : U. Ax : Uld a -> UId/3. x true = Aa : *. At : a. A/ : a. t 

id c = Ak : □. Aa : ft — > U. Ax : (II/? : k. Uld (a /?)). x false = Aa : *. \t : a. A/ : a. / 

id A = Aa : □ -> U. Ax : (IIx : □• Uld (a x))- x 

unquote = fold[UId,w, id,, id,, id n ,id n ,idA,idA] UBool = Aa : U. Bool 



Figure 10. Definition of unquote 



If e is a variable, then f T e =@ e. 

If t — ti — > T2, r h n : *, and e = Ax : t\. ei, then 

f t e =^3 abs, tTt¥ (Ax : FtT. f T2 eT). 
If e = ei e2, F h e2 : ri : *, then 

f t e =,9 app„ tT t (f ti -»■ r el) (fn^)- 
If r = Ila : k. Ti, F h k : □, and e = Aa : k. ei, then 

fre =/3 abs n k (Aa : k. Ti) (Aa : k. f rf eT). 
If e = ei T2, r h /t : □, and T h ei : Ila : k. Ti, then 

f t e =/3 c (app n k (Aa : k. n) (f Ila : k. t\ eT) T2) 

for some coercion c. 
If r = Ilx : D.Ti, and e = Ax : □• ei, then 

f t e =^ abs A (Ax : O.n) (Ax : □• ffT eT). 
If e = ei k, r h k : □, and r h ei : IIx : □ ■ Tl, then 

f t e =i3 app A (Ax : □• n) (f nx : D.n eT) «. 

Definition 5.3 states that the operation specified by fold[F, w, 
abs,, app t , abs n , app n , absA, app A ] has the semantics expected 
of a fold. The seven cases are mutually exclusive and exhaustive: 
a term in System U is either a variable, an abstraction, or an 
application. Abstractions and applications can be formed by one 
of three rules: (*, *), (□, *), (A, *). 

6. Operations 

In this section we show how to program three benchmark oper- 
ations on our representation. The first, called unquote, is a typed 
self-recognizer - a self-interpreter that recovers an term from its 
representation. The second, called isAbs, is a simple example of 
an intensional predicate. It tests whether its input represents an ab- 
straction or an application. The third, and most complex, is a typed 
self-applicable continuation-passing-style (CPS) transformation. 

6.1 Unquote 

Our self-recognizer unquote is defined in Figure 10. It produces 
results with types determined by Uld. Each case function in the 
definition of unquote is an identity function. If a term e has type r, 
then unquoting a representation of e produces a term of type Uld r. 
Theorem 4.2 states that Uld r is equivalent to r. 

Theorem 6.1 (Type of unquote). 

() h unquote : (Ila : U. Exp a — > Uld a) 

Unquote folds identity functions over the term. The result is 
equivalent to the original term. 

Theorem 6.2 (Correctness of unquote). 

// (} h e : t and quote(e) = q, then unquote r q =p e. 

The coercions produced by the witness for unquote are al- 
ways identity functions. Consider the type Uld (r[a := n]) — > 
Uld r[a := n], which is the type of an arbitrary coercion for un- 
quote. This type is equivalent to r[a := n] — > r[a := n]. 

6.2 isAbs 

Our second benchmark operation is Abs is shown in Figure 11. 
isAbs tests if its input is a representation of an abstraction. This 
demonstrates that we can define operations on a representation that 



w : Witness UBool 

abs, = ATi : *. AT2 : *. Af : Bool — > Bool. true 

app t = ATi : *. AT2 : *. Af : Bool. Aei : Bool, false 

abs n = A x : □• AF : x ~> *■ Aei : x — *■ Bool, true 

app n = A x : □• AF : \ ~ ► *■ Aei : Bool. Ax : \. false 

absA = ATi :□—>•*. Aei : □ — > Bool, true 

a PPA ~ ATi :□—>•*. Aei : Bool. A x : □. false 

isAbs = fold[UBool, w, abs, , app t , abs n , app D , absA, app A ] 



Figure 11. Specification of is Abs 



cannot be defined directly on the represented term. The result type 
UBool of isAbs is the constant Bool function. Each case function in 
the definition of isAbs is a constant function. It discards the result 
of folding over its subterm(s), since we are only interested in the 
outermost constructor of the representation. The case functions for 
abstractions are constant true functions and the case functions for 
applications are constant false functions. 

Theorem 6.3 (Type of isAbs). 

() I- isAbs : (Ila : U. Exp a -> Bool) 

The application of isAbs to the representation of a term of type r 
produces a term of type UBool r, which is equivalent to Bool. Like 
those for Uld, coercions for UBool types are identity functions. 
Consider the type UBool (r[a := n]) — > UBool r[a := ri], 
which is the type of an arbitrary coercion for isAbs. Since UBool 
is a constant function, this type is equivalent to Bool — > Bool. 

Theorem 6.4 (Correctness of isAbs). 
If () h e : r : * andquote(e) = q then: 

• Ife = Xx : A.ei, then isAbs r q =p true. 

• Ife = ei A, then isAbs r q =p false. 

6.3 Continuation-Passing Style 

In this section, we implement a type call-by-name continuation- 
passing style (CPS) transformation on our representation. CPS 
transformation is commonly used in compilers for functional lan- 
guages. It makes the evaluation order (call-by-name in our case) 
explicit, and eliminates the need for a control-stack. There are ex- 
amples of typed CPS transformations in the literature, though ours 
is the first that is self-applicable. We extend the typed CPS trans- 
formation of [27], which operates on typed representations of sim- 
ply typed A calculus. To transform abstractions and applications of 
types and kinds, we extend the technique used by Morrisett et al 
[24] to transform System F type abstractions and applications. 

The result of applying the CPS transformation to the represen- 
tation of a term of type r is a term of type CPS r. The type CPS 
is shown in Figure 12. CPS is defined via a fold CPSi and a helper 
function Ct. The CPS-transformation itself is defined in Figure 13. 

Theorem 6.5 (Type of cps). 

() I- cps : (Ila : U. Exp a -> CPS a) 

Coercions for CPS types are not identity functions, unlike those 
for Uld and UBool types. As a simple example, note that for type 
variables a and /3, CPS (a[a j3]) is not equivalent to 

CPS (a[a := /3 ->■ /3]). The former simplifies to CPS (Var (/3 -> 



Ct = AT : *. n V : *. (T -> V) -> V 

var = Aa : *. a 

prod, = Aa : *. A/? : *. Ct a ->• Ct /? 

prod n = Ax : □• Aa : x ^ *• n/? : x- Ct (a /?) 

prod A = ATi IIx : □• Ct (Ti x) 

CPSi = Fold[var, prod, , prod n , prod A ] 

CPS = AT : U. Ct (CPSi T) 

Figure 12. The result type of CPS transformation 



S *, □ 

A *:□,□:□ 

n (*,*),(□,*),(□,□) 



Figure 14. PTS specification of F* 



quote(isAbs) = q 
isAbs (Ila : U. Exp a — > UBool a) q =p, v true 

We have validated cps by applying it to each of our polyapp 
functions from Section 3.2. 



w : Witness CPS 
abs* = Aa : U. A/3 : U. Af : CPS a -> CPS j3. 

AV : *. Ak : (CPS a -> CPS /3) -> V. k f 

app, = Aa : U. A/3 : U. Af : CPS (Prod* a /3). Ax : CPS a. 
AV : *. Ak : (CPSi P) -> V. 
f V (Ag : CPS a -> CPS /3. g x V k) 

abs n = A X : □• Aa : x ^ U. Ae : (11/3 : X- CPS (a /3)). 
AV : *. Ak : (CPSi (Prod n x«))^V.ke 

app D = A X : □• Aa : ( X -> U). Ae : CPS (Prod n X «)• A/? : X- 
AV : *. Ak : (CPSi (a /3)) -> V. 
e V (Aei : (lift : X - CPS (a ft)).ei /3 V k) 

abs A = Aa : □ -> U. Ae : Yl X : □• CPS (a X )- 
AV : *. Ak : CPSi (Prod A a)^V.ke 

app A = Aa : □ -> U. Ae : CPS (Prod A a). Ax : □• 
e V (Aei : (n X i : □. CPS (a X i)).ei x V k) 

cps = fold[CPS, w, abs* , app„ , abs n , app n , absA, app A ] 



Figure 13. Specification of cps 



13)), and the latter to CPS (Prod, (Var f3) (Var [3)). Coercions for 
CPS types add and remove continuations as necessary. 

We don't attempt to formally verify the correctness of cps, 
though we validate it by testing it on the polyapp functions from 
Section 3.2. 

7. Experiments 

We conduct experiments using an implementation of System U, 
which is available from our website [1]. We implement a parser 
in Ohm, a domain specific language for writing parsers and the 
successor to OMeta [34]. The parser generates abstract syntax for 
our Haskell implementation of System U, which includes type and 
term quoters, a validity checker, an evaluator, and an incomplete 
(3, ^-equivalence checker. We have used the implementation to me- 
chanically check that all System U terms, types and kinds presented 
in the paper are legal, and to verify the equivalence theorems. We 
have verified that self-applications of unquote, isAbs, and cps are 
legal and have normal forms. Furthermore, self-application of un- 
quote is equivalent to unquote itself, and self-application of isAbs 
evaluates to the Church boolean true: 

quote(unquote) = q 
unquote (Ila : U. Exp a — > Uld a) q =p, v unquote 



8. Related Work 

The problem of typed self-representation has been studied since 
1991, when Pfenning and Lee considered whether System F (A2) 
could represent itself [26]. They found that "metacircularity seems 
to be impossible" for System F. However, they developed several 
typed representations of one language in another - System F in 
System F w , and F„ in Fj . Their representation technique inspired 
our own. They use higher order abstract syntax similar to ours, 
with two important differences. They don't represent types, and 
their quoter does not change the types of variables. Each of these is 
important for our typed cps transformation. 

The key idea of decomposition of product types is already 
present in Pfenning and Lee [26]. The idea recurs throughout the 
literature on typed HO AS representations. In the setting of pure 
type systems, the pattern becomes more clear. We identify decom- 
position of product types and abstraction of the resulting compo- 
nents as key requirements for typed representation of a pure type 
system. 

Rendel, Ostermann, and Hofer [27] defined the first typed self- 
representation and self-recognizer (which they called eval). They 
study a language F* defined in Figure 14. Like F w , System F* 
contains the rule (□, □) which allows formation of higher-order 
types. Unlike F„, which classifies types using a family of kinds 
induced by the sort A and axiom □ : A, System FjJ, adds an axiom 
□ : □, which forms types that classify other types. Types that 
classify other types play the role of "kind" in System F„. This is 
sufficient to tie the knot: abstractions formed by (□, *) can abstract 
over both types and "kinds" in terms. Similarly, (□, □) can abstract 
over both types and "kinds" in types. 

Our type representation is partly inspired by that of [27], which 
represents the types of simply typed A-calculus in F* . They use 
type representations in a representation of simply-typed A-calculus 
in F*, which supports a typed CPS transformation. Our self- 
representation of System U and CPS transformation are also in- 
spired by their representation and CPS transformation of simply- 
typed A-calculus. 

Like System U, System F* is not normalizing. Unlike System 
U, type checking of F* is undecidable due to the (□, □) rule. We 
conjecture that System U can be embedded into F* , but that System 
F* cannot be embedded into System U. 

Our representation of types is also inspired by Saha et al. [30]. 
They study intensional type analysis for A" which, like System U, 
includes type and kind polymorphism. They encode base types of 
kind Q, (analogous to * in System U) using HO AS. The kinds of 
their HOAS type constructors parallel the kinds of the constructors 
of our type representations. 

A^ Kind System U Kind 

O -> n -> fi Prod, U -> U -> U 

V Vx-(x^^)^0 Prod D nx:D.(x^U)^U 

V+ (V X .n) -> Q. Prod A (□ -> U) -> u 



Despite notational differences, there is a direct correspondence 
between the kinds of the constructors for Xf types and our type 
representations. The binders V and II play the same role in each 
calculus. Furthermore, in System U □ — > U is shorthand for 
H\ : D.U (since \ d° es not occur free in U). A subtle difference 
is that there is no classifier for the kinds of Xf (they use a well- 
formedness condition), while in our PTS formulation of System U 
all kinds are classified by □. Saha et al. include a type operator 
Typerec for intensional type analysis of base types based on folds. 
They support fold operations that produce higher-kinded results. 
The Typerec operator is primitive, which avoids the need for type 
representations. They did not study self-representation of System 
A", and it is an open question whether it would be possible. We 
conjecture that System U can be embedded into A", but A" cannot 
be embedded into System U. 

Typed representation has been extensively studied, and is still 
an active area of research. Chen and Xi [10, 1 1] studied typed rep- 
resentation and typed meta-programming. Carette, Kiselyov and 
Shan [9] use typed representation to build tagless interpretations. 
McBride [20] achieved a metacircular representation of depen- 
dently typed languages in Agda. Axelsson [3] developed a tech- 
nique for building generic, composable typed representations as a 
solution to the expression problem [33]. Each of these is important 
related work, and we have learned from and been inspired by them, 
even though they did not study self-representation. 

9. Future Work 

Size. Our representations do not support operations that measure the 
size of a term. This is a limitation of our higher order abstract syn- 
tax representation. Abstractions in the representation, particularly 
type abstractions, can block access to the size of subterms. Assum- 
ing the size operation should produce results of some closed type 
Nat, we would need a way to convert a term of type Ha : n. Nat 
to Nat. The quantification a is redundant, since a does not occur 
free in Nat. In order to recover the Nat, we would have to apply the 
term of type Ha : K.Nat to a type of kind k. This is not always pos- 
sible, since not all System U kinds are inhabited. In [27] this was 
addressed by adding a type constant _L : Ha : a. a, which could 
be used to apply these abstractions. 

Beyond kind *. Our representation of types is limited to types of 
kind *. Full representation of types is desirable, as it may eliminate 
the need for coercions and the witnesses that enable coercions. 
Full representation may also enable more operations. It is an open 
question whether full type representation is possible in System U. 

Without type representation. At the other end of the type rep- 
resentation spectrum, we can consider representation of terms that 
don't require representation of types. We represent types in order to 
support our typed CPS transformation. In particular, type represen- 
tations allow us to give cps the polymorphic type Ila : U.Exp a — > 
CPS a. The input and output types Exp a and CPS a are both de- 
fined in terms of the quantified variable a. Our other operations, 
unquote and isAbs, do not require any representation of types. It 
is possible to define a simpler representation type Exp x of kind 
* — > *, and a quotation procedure that represents terms of type 
r with terms of types Exp x r. The representation type and quoter 
would be similar to those from Rendel, Ostermann, Hofer [27]. In 
particular, we would no longer require coercions. 

Strong normalization. Of the two A-calculi System F* and 
System U known to support typed self-representations, neither is 
strongly normalizing. It is an open question whether a language 
with decidable type checking and strong normalization can support 
typed self-representation. 

Representing open terms. Our quoter changes the types of vari- 
ables, which is important for our cps transformation, but also lim- 
its our representations to closed terms. Pfenning and Lee did not 



change the type of variables, which enabled them to represent free 
variables (i.e. those bound outside the representation) in the same 
way as bound variables. It is possible to extend our representation 
type with a new constructor for representing free variables, with the 
type: 

IIR : U *.Ha : *.q -> PExp R (Var a) 
To represent a free variable of type r, the quoter would first apply 
this constructor, producing a term of type PExp R (Var r). Then it 
would synthesize a coercion to change the type to PExp R r. Note 
that Var r = a[a := t] and that r = a[a := t]. 

Dependent Types. We can extend System U with dependent 
types by adding to TZ the rule (*, □) that forms types that ab- 
stract over terms. The resulting system still supports polymor- 
phic application, which indicates that it might also support self- 
representation. Compared to the polyapp functions for System U, 
the only change required is to polyapp*, since (*, *) products can 
now be dependent. For example, in a product type Ila; : n. r 2 
formed by (*,*), the bound variable x can now occur free in T2. 
The polyapp, function for the extended system could be defined 
as: 

Ati : *. Xt-2 : Ti — > *. (Ila; : T\.T2 x) — > Hy :r\.riy 

Note that the kind n — ¥ * is formed by (*, □). We still have the 
property that □ is the only element of A, which is key to tying the 
knot. However, the addition of dependent types would raise two 
challenges for type representation. The first is due to the introduc- 
tion of non-normalizing types (e.g. because types can contain non- 
normalizing terms). Our type representation in this paper only ap- 
plies to types in normal form. Second, the type representation must 
consider how to represent types that depend on terms. 

10. Conclusion 

The question of whether a meaningful notion of typed self-represen- 
tation is possible for a language with decidable type checking has 
been open since 1991 [26]. We answer in the affirmative by pre- 
senting the first typed self-representation for a A-calculus with 
decidable type checking. Our calculus is System U, which was in- 
troduced in Girard's PhD thesis [16]. We embed representations of 
types into representations of terms, which enable operations like 
CPS transformation that change the type of a term. Our representa- 
tion supports operations that iterate over the term, and we provide 
three example self-applicable operations: a typed self-recognizer 
that recovers a term from its representation, a predicate that tests 
the intensional structure of a term, and a typed CPS transforma- 
tion. Ours is the first typed self-applicable CPS transformation. 
We have validated our results by conducting experiments using an 
implementation of System U in Haskell. 
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U= (* 



(Tlx ■ a.(x->*) -> *) -> 
((□ -»■ *) -»■ *) -»■ 
* 



Figure 15. Kind of type representations 

A. Encoding 

A.l Type Representations 

In this section we provide concrete definitions of the kind U of type 
representations, the constructors of type representations, and the 
Fold[. . . ] context. Our representations of types use a Church-style 
encoding. Figure 15 shows the kind U of type representations. 

Theorem A.l. () h U : □ 

Proof. Straightforward. □ 

The file lib/reptypes .pts defines the constructors for our 
type representations. 

Theorem A.2 (Kinds of Type Representation Constructors). 



h Var 
h Prod, 
h Prod n 
h Prod A 



* -> U 

u -> u -> u 

(n X :n. (x^u)^u) 

(□ -»• U) -»• u 



Prao/ Machine-checked. 



□ 



Definition A.l. Suppose var, prod t , prod n , and prod A satisfy: 



() I- var 
0 I- Prod, 
0 I" prod n 
0 I" prod A 



* — > * 

(n* : □. (x 

(□—>*)—> ■■ 



*) — > *) 



77ierc Fold[var, prod t , prod n , prod A ] denotes the type: 

Xa : U. a var prod^ prod D prod A 

Theorem A.3. Let F = Fold[var, prod,, prod n , prod A ]. Then 
(} h F : U -> * 

Proof. Straightforward. □ 

Theorem A. 3 states that all folds on type representations have 
kind U — > *. The proof is straightforward, since Fold[. . . ] is only 
defined when the case functions have the expected kind. 

Theorem A.4. Suppose T h r : *, and let F = Fold[Fi,F2, F 3 , 
F4]. Then: 

F t =0 Fi t If r is of the form an . . . r n 

F r =3 F2 (F n) (F T2) If T = n — > T2, T h n : * 
F t F3 re (Aa : re. F n) If r = Ha : K.Ti, F h K : □ 
Ft =g F 4 (Ax : □• Fn) IfT = n X :D-Ti 

Proof. By straightforward case analysis. In each case, we expand 
the definitions of r, F, Fold[. . . ], and the constructors Var, Prod*, 
Prodn, and ProdA on both sides of the equivalence. Then a few 
simple /3-reductions establish the equivalence. In the fifth case 
(when e is a type application of the form ei T2, we also rely on 
Lemma A.l 1. □ 



PExp = AR : U -> *. Xa : U. 
Witness R — > 
Abs, R — > App, R — > 
Abs n R — > App n R — > 
AbsA R ->■ App A R —¥ 
Ra 

Figure 16. Type of pre-quotations 



Theorem A.4 states that an operation on type representations 
folds over the structure of its input. For example, a case function 
F2 for (*, *) products of the form n — > n maps the results of the 
operation on n and T2 to a result for n — > Ti. The other cases are 
similar. 

A.2 Term Representations 

In this section we provide concrete definitions of the type PExp 
of pre-quotations, the constructors of term representations, and the 
fold[. . . ] context. Our representations of types use a Church-style 
encoding. Figure 16 shows the type PExp of pre-quotations. 

Theorem A.5. (} h PExp : (U -> *) -»■ U -> * 

Proof. Straightforward. □ 

The file lib/replib . pts defines the constructors for our term 
representations. 

Theorem A.6 (Types of Term Representation Constructors). 
() h mkVar : (UR : U -> *. Ila : U. R a -> PExp R a) 

) h mkAbs, : (nR : U -> *. Via : U. U/3 : U. 

(Ro4 PExp R P) PExp R (Prod, a P)) 

) h mkApp, : (nR : U -> *. n« : U. n/3 : U. 

PExp R (Prod, a P) -> PExp R a -> PExp R /?) 

) h mkAbsn : (nR : U -»■ *. n K : □. n« : (k -»■ U). 

(n/3 : k. PExp R (a /?)) -»■ PExp R (Prod n k a)) 

) h mkApp n : (nR : U -»■ *. n K : □. na : (re -> U). 

PExp R (Prodn k a) -»■ n^ : k. PExp R (a /?)) 

) h mkAbsA : (nR : U -> *. na : □ -»■ U. 

(nx : □. PExp R (a x)) ->■ PExp R (Prod A a)) 

) h mkApp A : (nR : U -> *. na : □ -»■ U. 

PExp R (Prod A a) -»■ IIx : □■ PExp R (a x)) 



Proof. Machine-checked. 



□ 



Definition A.2. Suppose F, w, abs„, app t , abs n , app n , absA, and 
app A satisfy: 

{)hF : U -> * 
() h w : Witness F 

() h abs» : Abs, F () h app„ : App, F 
() h abs n : Abs n F () h app n : App n F 
() I- absA : AbsA F () h app A : App A F 

Then fold[F, w, abs*, app„, abs n , app n , absA, app A ] denotes the 
term: 

Xa : U. Ae : PExp F a. e w abs„ app,, abs n app n absA app A 

Theorem A.7. Suppose F, w, abs», app^, abs n , app n , absA, and 
app A are as in Definition A.2. If f = fold[F, w, abs„, app», abs n , 
appn, absA, appA], then T h f : (na : U. PExp Fa->Fa). 



Proof. Straightforward. 



□ 



Pre-quotations are functions of seven arguments - a witness, 
and six fold functions. To reason about the behavior of a pre- 
quotation, we must consider applications of it to seven arguments. 
As a convenience, we define a one-hole context ip(-) to form such 
applications. 

Definition A.3. For any terms e, w, fi, . . . , fe ( where w, fi, . . . , fe 

are to be inferred by context), i/>(e) denotes the term e w f i ... fg. 

Lemma A.l (Semantics of representation constructors). For any 
w, fi, . . . , f 6 : 



1) i/)(mkVar R r x) 

2) V>(mkAbs* R n r 2 q) 

3) V( mkA PP* R T i T 2 qi q 2 ) 

4) i/j(mkAbSn Rurq) 

5) i/>(mkApp n R k t q ti) 

6) i/j(mkAbsA Rrq) 

7) -!/>(mkApp A R r q re) 



5/3 X 

5/3 fi n t 2 (Ax : R ti. V(q x» 
5/3 f2 ri r 2 v<qi) V>(q 2 > 

=0 f 3 rer (Aq : re. V(q}) 
=0 f4 «; r V>(q) n 
5/3 fs t (A X : □• V(q>) 
5/3 fe r ?/>(q) re 



Proo/ Straightforward /^-reduction. See the definitions in 
lib/replib.pts. 



□ 



While folds are only defined on prequotations, which have types 
of the form PExp F, we can apply a fold to a quotations by applying 
the quotation to the result type F. 

Theorem A.8. Suppose F, w, abs„ app t , abs n , app n , absA, and 
app A are as in Definition A.2. Iff — fold[F, w, abs t , app„, abs n , 
app a , absA, appA], then: 

() h (Aq : U. Ax : Exp a. f a (x F)) : (ffa : U. Exp ct->Fa) 

Proof. We have that Exp a =^ (ITR : U -»• *. PExp R a), 
so a : U, x : Exp a h x F : PExp F a. By Theorem A.7 
a : U,x : Exp ah/: (ffa : U. PExp Fa -> Fa). Therefore, 
a : U. x : Exp a h f a (x F) : F a. Therefore, we can derive the 
result by two uses of the abstraction rule. □ 

A.3 Coercions 

The need for coercions arises from the fact that not every type of 
kind U is a type representation. Consider a type r = a — > /3 of kind 
*. We can construct multiple types of kind U from the components 
of r: 

Var (a -> f3) 
Prod, (Var a) (Var f3) 

It happens that the second type is f , the representation of r. We 
might call the first a pseudo-representation of r: it is a type of kind 
U, the kind of type representations, but is not the representation of 

T. 

A similar situation arises with term representations. Suppose a 
term e has type Ila : k.t, and a type n has kind re. Then e ti 
has type r[a := n]. Now, suppose e has type PExp R r. Then 
mkApp n re (Aa : re. r) e ti has the type PExp R (r[a := n]). This 
is in general not equivalent to PExp R (r[a := Ti]), so we insert a 
coercion to convert a term of type PExp R (r[a := n]) to one 
of type PExp R (r[a := n]). These coercions are automatically 
constructed by the quoter. To enable this, we require operations 
with a result type function R to satisfy the property: 

Property A.l (Coercibility of operations). For all types r and ti, 
there exists a coercion c of type :R(f[a := n]) — > R(r[a := n]). 



The property is witnessed by a tuple of functions that the quoter 
uses to construct coercions. There are three coercion functions for 
each of the rules (*, *), (□, *), and (A, *). They are: 
dist s Adds one level of type representation. 
factor s Removes one level of type representation. 
coerce s Applies coercion(s) to the components of a 
representation. 

When we say that dist 3 adds a level of type representation, 
we mean that it encodes only the top-level form of a type. For 
example, dist* maps terms with types of the form R (Var (a — ¥ /3)) 
to R (Prod* (Var a) (Var /?)). The name dist* reflects that we 
distribute Var over the arrow. 

The factor s witness functions go the opposite direction as the 
dists ones. For example, factor, maps terms with types of the form 
R (Prod, (Var a) (Var /?)) to R (Var (a -¥ /3)). 

The coerces witness functions is a constructor for coercions on 
(s, *) products. 

We use the witness functions to define nine coercion functions 
with types listed in Figure 18. Coercions of type Reify „ R map 
R (Var (ti — > r 2 )) terms to R ri — > r 2 terms. They take as input 
a reflect coercion for T\ and a reify coercion for r 2 . Coercions of 
type Reflect, R map R ri — > r 2 terms to R (Var (n — > r 2 )) terms. 
They take as input a reify coercion for T\ and a reflect coercion 
for r 2 . Coercions of type Coerce, R map R (Prod, n r 2 ) terms to 
R (Prod, <ti cr 2 ) terms, taking as input coercions from R o\ to R n 
and from R r 2 to R cr 2 . 

Each operation is required to supply a witness of property A.l, 
which is a tuple of nine functions. The types of these functions are 
listed in Figure 17. 

A.4 Coercion Constructors 

We use witnesses to define coercion constructors, whose types 
are listed in Figure 18. The quoter uses the constructors to build 
coercions with types of the form 



PExp R (f[a := n]) —¥ PExp R (r[a := n]) 

The file lib/coercelib .pts defines the functions reify s , 
reflects, and coerce s for each s £ {*, □, A}. 

Lemma A.2. The functions reify s , reflects, and coerce s for each 
s G {*, □, A} have the types listed in Figure 18. 



Proof. Machine checked. 



□ 



Figure 19 defines the coercion construction process used by the 
quoter. The notation n ~> r 2 denotes the coercion from PExp R n 
terms to PExp R r 2 terms. They are constructed inductively by the 
structure of n and r 2 . 

Lemma A.3 (Reification and Reflection). // r is a normal form 
and r h r : *, then there exist terms ci and c 2 such that: 

Var t ~> t — ci 
t ~-> Var t — C2 

Proof. Straightforward, by induction on the height of the derivation 
ofTI-r:*. " □ 

Theorem A.9 (Completeness of Coercion Construction). IfF, a : 
re h r : * and T h n : *, then there exists terms Ci and c 2 such 
that: 



T[a := Til ~> tick := Til = ci 



t [a := Til ~> t [a := Ti = c 2 



Prao/ Straightforward by induction on the height of F, a : re h r 



□ 



Dist* : (U -> *) -> * = 
AR : U -> *. lb, :l\ II . 
R (Var (Uld « — > Uld ft)) —y 
R (Prod, (Var (Uld a)) (Var (Uld ft)) 

Factor* : (U —>*)—>* = 
AR : I • • . lie :l\ II . 

R (Prod, (Var (Uld a)) (Var (Uld ft)) -> 
R (Var (Uld a -y Uld ft) 

Coerce* : (U —>*)—>* = 

AR : U -y *. I U. : I . II . II.-, : :l . II . :U. 

(R qi — > R a ) -> (R /3 -y R ft) -> 

R (Prod, a ft -> R (Prod, c*i ft) 

Distn : (U — > *) — y * = 

AR : U -»■ *. nx:D. na:x ^ U. 

R (Var (lift*. Uld (a ft)) -> 

R (Prod n X (Aftx- Var (Uld (a ft))) 

Factorn : (U —>*)—>* = 

AR : U -y *. Ux:B. Iia:x -> U. 

R (Prod n X (Aftx- Var (Uld (a ft))) ->■ 

R (Var (Ilftx- Uld (a ft)) 

Coercen : (U —>*)—>* = 

AR : U -y *. Ux:n. Flai : x ->• U. n« 2 : x 
(Iip-.x. R (ai /9) -y R (a 2 ft) -)■ 
R (Prod D x Q i) ^ R (Prod n X a 2> 

DistA : (U —y *') —y * = 
AR : U -y *. Ua : □ -y U. 
R (Var (n x :D. Uld (a x))) -> 
R (Prod A (Ax:D. Var (Uld (a x)))) 

FactorA : (U —>*)—>* = 
AR : U -> *. n«:D -> U. 
R (Prod A (Ax:D. Var (Uld (ax)))) ->■ 
R (Var (U X :D. Uld (a X ))) 

CoerceA : (U —>*)—>* = 

AR : U — > * . n«i: □ -y U. IIa 2 : □ U. 
(n X :n. R («i x) R ("2 X)) ->■ 
R (Prod A ai) R (Prod A a 2 ) 

Witness : (U — » *) — » * = 
AR : U -> *. n<* : *. 
(Dist, R -y Distn R -> Dist A R -> 
Factor, R — y Factor n R — > FactorA R — > 
Coerce, R — » Coerce n R — > CoerceA R — ► 
a) — ► 

a 

Figure 17. Types of Witness Functions 



Reify, : AR : U -> *. Ua : U. U/3 : U. 
(Ra->R(Var(UIda))) ->■ 
(R (Var (Uld ft)) -»• R /3) -> 
R (Var (Uld a — > Uld /3)) — » R (Prod, a /3) 
Reflect, : AR : U — > *. Ua : U. fl/? : U. 

(R (Var (Uld a)) -y R a) -> 
(R/3 -> R (Var (Uld ft)) -> 
R (Prod,Q /3) -> R (Var (Uld a -y Uld ft) 

Reify n : AR : U -> *. nx : □• nr : x -> U. 

(no : x- R (Var (Uld (r a))) -> R (r a)) -> 
R (Var (Ua : x- Uld (r a))) -> R (Prod n « r) 
Reflect^ : AR : U -J- *. nx : □• nr : x -»■ U. 

(na : x- R (t a) -> R (Var (Uld (r a)))) -> 
R (Prodn k t) -> R (Var (na : x- Uld (r a))) 

Reify A : AR : U -> *. nr : □ -> U. 

(n X : □. R (Var (Uld (r X ))) -> R (r x)) -> 
R (Var (nx : □• Uld (r x))) -> R (Prod A r) 
ReflectA : AR : U -> *. nr : □ -y U. 

(n X : □. R (r X ) R (Var (Uld (r X )))) -> 
R (Prod A r) — > R (Var (n X : □. Uld (r x))) 

reify 4 : Reify, (PExp R) 
reflect, : Reflect, (PExp R) 
coerce, : Coerce, (PExp R) 

reify n : Reify n (PExp R) 
reflect : Reflect n (PExp R) 
coercen : Coerce D (PExp R) 

reify A : Reify A (PExp R) 
reflectA : Reflect A (PExp R) 
coerceA : CoerceA (PExp R) 

Figure 18. Types of Coercion Functions 



Theorem A.10 (Types of Coercions). IfT h n : U and V h r 2 : 

U, and Ti ~> r 2 = c, then 

R:U -y *, F h c : PExp R n -> PExp R r 2 

Proof. Straightforward by induction on the height of n ~> r 2 = c, 
and by Lemma A. 2 and Theorem 4.2. □ 

Now we turn to the semantics of coercions. Coercions are built 
from witnesses, which Church tuples of 9 components. We begin 
by defining a set of witness projection functions. 

Definition A.4 (Witness Projection Functions). Let R be a type 



of kind U 



which is to be inferred from context. For i G 



{1, . . . , 9}, Wi denotes the witness projection function: 

Axi : Dist, R. Ax 2 : Factor, R. \x-s : Coerce, R. 
AX4 : Distn R- AX5 : Factor^ R. Ax6 : Coerce n R. 
Ax 7 : DistA R- Ax 8 : FactorA R- Ax g : CoerceA R- x ; 

Lemma A.4 (Witness Projections are Normal Forms). For i 

{1, . . . , 9}, Wi is a normal form. 

Proof. Trivial. 



□ 



Now we turn to the semantics of coercions. Coercions rely on a 
function lift that maps terms of type R a to terms of type PExp R a. 
The definition of lift is in lib/replib . pts. 



Lemma A.5 (Type of lift). 
U.Ra4 PExp R a) 



() \- lift : (nR : U -> *. Ua 



(Var r ~-> Var r) = Xx : PExp R (Var t).x 

(tT ~> Var n ) = reflect,-! (Var T2 ~-> 75) = reify T2 
(Var (n — >• r2 ) ~~» ti — > t 2 ) = reify,, R tT T2 reflect T1 reify T2 



(Var n ~> n) = reify T 



(j2 ~> Var T2 ) = reflects 



(ri — >• T2 ~> Var (n — >• T2)) = reflect, R ti T2 reify reflect T2 

(<7i ~-> n) = Ci (r 2 ~» cr 2 ) = c 2 

(Prod* ti T2 ~-> Prod* <ti CT2) = coerce, R n T2 <ti 02 ci C2 



(Var r) 



~~» r = c 



Var (fla : k.t) ~-> Ha : k.t = reify n R k (Aa : k.t) (Aa : k. c) 
t ~-> (Var r) = c 



fla : k.t ~-> Var (fla : k.t) = reflectp R k (Aa : k.t) (Aa : k. c) 

r ~-> a = c 

(Prodn K (Aa : k. r)) ~» (Prod n K (Aa : k. a)) 
= coerce n R k (Aa : k.t) (Aa : k.o) (Aa : k. c) 



(Varr) 



~> r = c 



Var (fix : D.t) ~» ITx : D.t = reify A R (Ax : U.t) (Ax : □• c) 
t ~~> (Var r) = c 



fix : D.t~> Var (IIx : U.t) = reflectA R (Ax : D.t) (Ax : □• c) 

t ~~> a = c 

(Prod A (Ax : □• r)) ~» (Prod A (Ax : □• a)) 
= coerceA R (Ax : U.t) (\\ ■ U.a) (Ax : □. c) 

Figure 19. Coercion Construction 



Proof. Machine-checked. 



□ 



Lemma A.6 (Semantics of lift). ForallR, a, e, -0 (lift R a e) =p e 



Proof. Straightforward /3-reduction. See the definition of lift in 
lib/replib.pts. □ 



Lemma A.7 (Semantics of primitive coercion constructors). For 
any w, fi, . . . , i§: 

1) V(dist* R 7-1 t 2 e) 

=p w (Dist* R) wi Ti T2 V>(e) 

2) V (factor* R ti T2 e) 

=fj w (Factor, R) W2 Ti T2 ip{e) 

3) i/> (coerce, R ti T2 o\ 02 Ci c 2 e) 
=p w (Coerce, R) W3 ti T2 (Ti <J2 

(Aa; : Rffi. V(ci (lift R 01 a;))) 
(Aa; : Rr 2 . i/>(c 2 (liftRr 2 a;))) 
V»<e) 



4) i/>(dist n R K r e) 

=p w (Dist n R)w 4 kt ^(e) 

5) ^(fectorn R k t e) 

=j9 w (Factor n R)w 5 kt i/>(e) 

6) ?/>(coerce n R k t a c e) 
=p w (Coerce n R) we n r <r 

(Aa : k. Aa; : R (r a). ?/>(c a (lift R (t a) a;))) 
i>{t) 

7) V(distARre) 

=(8 w (DistA R) W7 k t ip{e) 

8) ip (factor a R r e) 

=0 w (FactorA R) wg t i/>(e) 

9) ^1 (coerceA R t a c e) 
=p w (CoerceA R) wg r <r 

(A X ; □. Aa- : R (t x)- V>(c X (lift R (t x) x)» 

V-(e) 



Proo/ Straightforward /3-reduction. See the definitions in 
lib/coercelib.pts. □ 



Lemma A.8 (Semantics of derived coercion constructors). For any 
w, fi, . . . , fe' 

1) 1/) (reify t R Ti r 2 ci C2 e) 

=p V (coerce* R (Var (Uld n)) (Var (Uld t 2 )) ti t 2 
Ci C2 (dist* R ti T2 e)) 

2) ip (reflect, R ti t 2 Ci C2 e) 
=p ^(factor* R ti T2 

(coerce* R ti t 2 (Var (Uld n)) (Var (Uld t 2 )) Ci c 2 e)) 

3) V (reify n R n t c e) 

=p ?/>(coerce n R k (Aa : k. Var (Uld (t a))) r c 
(dist n Rktc)) 

4) (reflect^ R k t c e) 
=p ^(factorn Rkt 

(coerce n Rkt (Aa : k. Var (Uld (t a))) c e)} 

5) ?/; (reify A R t c e) 

=,3 V (coerceA R (Ax : □• Var (Uld (t x))) " 
(distARre)} 

6) V (reflectA R r c e) 
=(3 V (factor a R r 

(coerceA R r (Ax : □. Var (Uld (t x))) c e)} 



Proo/ Straightforward /3-reduction. See the definitions in 
lib/ coercelib . pts. 



□ 



Lemmas A.9, A. 10, and A. 11 show that operating on a coerced 
pre-quotation is equivalent to operating on the prequotation, then 
coercing the result. 



Lemma A.9. 



1) 


i/>(dist* R 7~i t 2 e) 


= « c ib (&) 


for some c 


2) 


ip( factor* R n t 2 e) 


=/3 c ^(e) 


for some c 


3) 


t/>(coerce, R T\ t 2 (T\ a 2 Ci c 2 e) 


=/3 c V(e) 


for some c 


4) 


-0(dist n Rcre) 


=/3 c V(e> 


for some c 


5) 


-i/)(factor n Rcre) 


=/3 c V^(e) 


for some c 


6) 


-i/>(coerce n R re r a ci e) 


=/9 c ip{e) 


for some c 


7) 


t/;(distA R k t e) 


=fj c V>(e) 


for some c 


8) 


«/> (factor a R k t e) 


=13 c V(e) 


for some c 


9) 


-(/'(coerceA R re t a Ci e) 


=/3 c V(e) 


for some c 



Proof. Straightforward by Lemma A.7. 



□ 



Lemma A. 10. 

1) 

2) 
3) 
4) 
3) 
6) 



^(reify, R n t 2 ci c 2 e) =p c tp{e), f° r some c 

i/>(reflect» R n t 2 ci c 2 e) =,g c i/>(e), for some c 

i/>(reify n R re t ci e) =0Ctp{e), for some c 

V>(reflect n R re t ci e) =0Ctp{e), for some c 



tp (reify A Rrci e) 



^ (reflect a R t ci e) 



=/3 c V'(e), for some c 
=p c V'(e), for some c 



Proof. Straightforward by Lemma A. 8 and Lemma A. 9. Each case 
is similar, and (1) is representative. 

Case (1): By Lemma A. 8 and then Lemma A.9 (1) and (3), we 
have that: 

^(reify, R n r 2 Ci c 2 e) 
=p ^(coerce, R (Var (Uld n)) (Var (Uld t 2 )) n r 2 
ci c 2 (dist* R n r 2 e)} 
c' (c" </>(e» 

The result holds with c = Ax : R ( Var (Uld n -S- Uld r 2 ) ) . c' (c" x) 

□ 



Lemma A.ll. If n ~-> r 2 

(f>{ce) =p c' 0(e) for all e. 



c, f/zen there exists a c' smc/z that 



Proof. Straightforward, by Lemmas A.9 and A. 10. 



□ 



The following theorem states that our encoding meets the spec- 
ification of Definition 5.3. 

Theorem A.ll. Suppose F, w, abs», app,, abs n , app n , absA, and 
app A are as in Definition A.2, and suppose f = fold[F, w, abs*, 
app*, abs n , app n , absA, appA]- Then for any context T, term e, 
and type r such that T h e : r, we have that: 

If e is a variable, then f r e =p e. 

If r = n — > t 2 , rhn : *, and e = Ax : T\. ei, then 

f t e =/3 abs* Tin (Ax : FtT. f T^ei). 
If e = ei e 2 , T h e 2 : ri : *, then 

f t e =,9 app, fT t (f n r el) (fn^). 
If t = Ila : k.ti, r h k : □, and e = Aa : re. ei, then 

f t e =j3 abs n k (Aq : k. tT) (Aa : k. f rT el). 
If e = ei T2, r h /t : □, and Y h ei : Ila : k.t\, then 

f t e =,3 c (app n re (Aa : re. Tf) (f Ila : re. n el) t 2 ) 

for some coercion c 
If r = Ilx : □. Ti, and e = Ax : □• ei, then 

f t e =,3 absA (Ax : O.ri) (Ax : □• f neT). 
If e = ei re, T h re : □, and F h ei : Ilx : □■ Ti, then 

f t e =^ app A (Ax : □• n) (f nx : D.Ti el) k. 



Proof. By straightforward case analysis. For each case, we expand 
the definitions of r, e, f, fold[. . . ] on both sides of the equivalence, 
and apply Lemma A.l. For the fifth case (type application), we use 
Lemma A. 11 □ 



B. Normalization of Representations 

We now prove strong normalization for our representations. For 
convenience, we define a new one-hole context #(•}, which is 
similar to ib{-) except that we require that w, L, . . . , f(, be variables. 

Definition B.l. For any term e, 8{e) denotes the term e w fi . . . f&, 
where w,fi, . . ., fe are variables. 

Definition B.2. Suppose that 8{e) is strongly normalizing (SN). 
Then we say that e is 9-SN. 

Definition B.3. Suppose that c is a term such that whenever e is 
6-SN, c e is 9-SN. Then we say that c is 92-SN. 

Lemma B.l. Ife is 9-SN, then e is SN. 

Proof. Suppose e is 6-SN. By definition, 0(e) =p e w fi . . . fe is 
SN. Therefore, e is SN. □ 

Lemma B.2. For any R, r, e, ife is SN, then lift Rreis 6-SN. 

Proof. Suppose e is SN. We must show that 6>(lift R r e) is SN. We 
have that 6{-) is a particular case of a ip{-), so by Lemma A.6 we 
have that 6>(lift R r e) =p e. By assumption, e is SN, so 0(lift R r e) 
is SN as required. □ 

Lemma B.3. 

1. VR, n, t 2 : dist, R n r 2 is 62-SN. 

2. VR, n, t 2 : factor* R n r 2 is 62-SN. 

3. VR, ti, r 2 , ai, cr 2 , Ci, c 2 : If ci andc 2 are 62-SN, 
then coerce* R n t 2 o\ a 2 Ci c 2 is 62-SN. 

4. VR, re, t: dist n R re r is 62-SN. 

5. VR, re, t: factor n R re t is 62-SN. 

6. VR, re, t, a, c: //c a is 62-SN for all a, 
f/zen coerce n R re t a c ls- 62-SN. 

7. VR, TV dist A R re t is 52-5iV. 
& VR, t: factor A R re t is 6»2-SAT. 

9. VR, t, cr, c: 7/c x is 62-SN for all \, 
then coerceA Rrac is 92-SN. 

Proof. Each case is similar. (9) is representative. 

Suppose c x is 6<2-SN for all x, and suppose e is 9-SN. We must 
show that # (coerceA R t a c e) is SN. By Lemma A.7, we have 
that: 

9 (coerceA R t a c e) 
= 8 w (CoerceA R) wg r a 

(A X : □. Ax : R (t X ). fl(c X (lift R (t x) x)» f<e> 

Note that w is a variable. By Lemma A.4, we have that wg is a 
normal form. Since (CoerceA R), t, and a are types, they are all 
SN. Since x is a variable, it is SN, so (lift R (t \) x ) is ^-SN by 
Lemma B.2. Since c x is (92-SN, 9{c X (lift R {j x) x)> is SN. 
Therefore the term (Ax : □■ . . . ) is SN. Since e is 0-SN, 6*(e) is 
SN. Therefore the entire term is SN. □ 

Lemma B.4. 

1. VR, ti, t 2 , ci, c 2 , if ci and c 2 are 92-SN, then 
reify, R ti t 2 Ci c 2 is 92-SN. 

2. VR, Ti, t 2 , Ci, c 2 , if C\ and c 2 are 92-SN, then 
reflect, R t\ t 2 Ci c 2 is 92-SN. 

3. VR, re, t, c, ifc a is 92-SN for all a, then 
reify n R r c is 92-SN. 

4. VR, re, t, c, i/c a is 92-SN for all a, f/ten 
reflect n R t c is 92-SN. 

5. VR, t, c, ;/c x is 92-SN for all x, ^ew 
reify A Rrc is 02-SV. 



6. VR, t, c, ifc x is 62-SNfor all x, then 
reflectA R r c is 62-SN. 

Proof. Each case is similar. (3) is representative. 

Let c be such that c a is 6»2-SN for all a, and let e be 0-SN. We 
must show that 6<(reify n R k c e) is SN. By Lemma A.8, we have 
that 

6 (reify n Rsrce) 
=p 6>(coerce n R k (Aa : k. Var (Uld (r a))) r c 
(disto Rcre)) 

By Lemma B.3, coerce n R k (Aa : n. Var (Uld (r a))) r c 
is 6>2-SN. Also by Lemma B.3, dist c R k t is 62-SN. Therefore, 
(disto R k t te) is 0-SN, which in turn gives that the entire term 
#(coerce n . . . } is SN. Therefore, reify n R n r c is 82-SN. □ 

Lemma B.5. Ifn ~» T2 = c, fiierc c is 62-SN. 

Proof. Straightforward by induction on the height of the derivation 
of n ~-> T2 = c, and by Lemmas B.4 and B.3. □ 

Lemma B.6. 

7. VR, r, x : 7/x is a variable, then mkVar R r x is 9-SN. 
2. VR, Ti , T2 , q : If q x is 6-SN for any variable x, then 

mkAbs, R n r 2 q is 
5. VR, n , T2 , q x , q 2 : Ifq 1 and q 2 are 0-SiV, then 
mkApp,, R n T2 q 1 q 2 is #-S/V. 

4. VR, k, r, q : //q a is 6-SN for any variable a, then 
mkAbsn R k r q is #-S7V. 

5. VR, k, r, q, n : //q is 0-57V, £/ien mkApp n R k t q n is 6-SN. 

6. VR, r, q : Ifq x is 6-SN for any variable x, then mkAbsA R r q 
is 6-SN. 

7. VR, r, q, k : Ifq is 6-SN, then mkApp A R n r q n is 6-SN. 

Proof. Each case is similar. (3) is representative. 

Suppose q r and q 2 are 6-SN. By Lemma A.l, 6>(mkApp t R 
n T-2 q x q 2 ) =p f2 Ti T2 fl^i) #(q 2 }- Since f2 is a variable, n and 
r 2 are types, and and 6{q 2 ) are SN, the entire term is SN as 

required. □ 

Lemma B.7. IfF h e : r ► q, then q is 6-SN. 

Proof. Straightforward by induction on the height of the derivation 
r h e : r ► q, and by Lemma B.6 and Lemma B.5. □ 

Lemma B.8. If T h e : r ► q, then q is SN. 

Proof. Follows from Lemma B.7 and Lemma B.l. □ 

C. Proofs 

Definition C.l. A PTS is called functional (or singly-sorted) if 

1. (c : si), (c : s 2 ) G A => Si = S2 

2. (s 1 ,S 2 ,S 3 ),(s 1 ,S 2 ,s' j ) £ll => S 3 = S3 

Theorem C.l (Uniqueness of types in a functional PTS [5]). Let 

AS be a singly-sorted PTS. Then 

rhA:Bi&ri-A:B2 => Bi =p B 2 
Definition C.2. A PT5 is called injective if 

1. It is functional 

2. (si : s 2 ), (si : s 2 ) G ^4 => Si = si 

3. (si, S2, S3), (si, S2, S3) G TZ => s 2 = s 2 

Theorem C.l. Typechecking of an injective PTS is decidable [6]. 



Lemma C.l. System U is functional. 
Proof. 

1. Each constant c is in the left-hand position of at most one 
axiom. 

2. Suppose (si, s 2 , S3), (si, S2, s 3 ) G TZ. Then S2 = S3 and 
s 2 = s 3 . Therefore, s 3 = s 3 . 

□ 

Lemma C.2. System U is injective. 
Proof. 

1. By Lemma C.l. 

2. Each sort s is in the right-hand position of at most one axiom. 

3. Suppose (si, S2, S3), (si, s' 2 , S3) G 7?.. Then S2 = S3 and 
s' 2 — s 3 . Therefore, s 2 = s 2 . 

□ 

Theorem C.3. Type checking is decidable for AU. 

Proof. Follows from Lemma C.2 and Theorem C.2. □ 

Lemma C.3. IfY h r : k : □, r/ien r /jas a normal form. 

Proof. The proof is by an embedding the types of System AU into 
the terms of System F, and the kinds of System AU into the types 
of System F. □ 

Theorem 3.2. If T h r : *, and t is a normal form, then r is of 
one of the following forms: 

a Ai ... A n where a is a type variable. 
Ti — > t 2 where T h n : * 

ria : k. Ti where T h k : □ 
n X : □• Ti 

Proo/ Straightfoward by Lemma C.3 and then by induction on the 
height of r h r : *. □ 

Theorem 3.3 (Decomposition of product types). For any legal 
(*, *) product n — > r 2 , any legal (□, *) product Ha : k. r, and 
any legal (A, *) product fix : □• t, we have: 

Tl — > T2 =p 7T« Tl T2 

Ila : k. r =fj 7r n «; (Aa : k. t) 
ILx-U.t =f} 7T A (Ax : □• t) 

Proof. Straightforward by the definitions of tt», tt 0 , and 7ta- 

7T* Tl T2 

= (Aa : *. A/3 : *. a — > /?) n T2 

= 0 Tl — > T 2 

7r n /t (Aa : k. t) 
= (Ax : □. Aa : x ~> *.H/3 : X- a P) K '■ K - T ) 
=p (Aa : k — > *.II/3 : k. a /3) (Aa : k. t) 
=0 n/3 : k. (Aa : k.t) /3 
= a fla : k. (Aa : k. t) a 
=,3 fla : k. t 

7ta (Ax : □. t) 
= (Aa : □ -»■ *.nx : □. a x) (Ax : □• r) 
=p Tlx : □. (Ax : □. t) x 
=^ n x : □• t 

□ 



Theorem 4.1 (Kinds of type representations). // V h r : * and 
r h r : * > (j, then V h a : U. 

Proof. Straightforward by induction on the height of the derivation 
r h r : * [> a, and by the types of the constructors in Definition 
4.2. □ 

Theorem 4.2. If T h t : *, then Uld r =a r. 

Prao/ By induction the size of the type r. 

Suppose r is of the form a T\ ... r n . By Theorem A.4, 
Uld r =p (\at : *. a) t =p r. 

Suppose r is of the form T\ — > t 2 and V h n : *. By 
the induction hypothesis, Uld tT =p n and Uld t^ =^ r 2 . 
By Theorem 3.3, 7r, n T2 =p r. Therefore, by Theorem A.4, 

Uld T = f) 7T, (Uld Tl) (Uld T2) =fj TV* Tl T2 =/3 T. 

Suppose r is of the form Ila : k. n and T h /t : □. By the 
induction hypothesis, Uld tT Tl. By Theorem 3.3, 7r n k ti =p 
t. Therefore, by Theorem A.4, Uld r =p it u k (Uld tT) =,9 

7T n K Tl =p T. 

Suppose r is of the form Ilx : □. Ti and T h k : □. By the 
induction hypothesis, Uld fT =^ n. By Theorem 3.3, 7r a n =p r. 
Therefore, by Theorem A.4, Uld r =p 7ta (Uld rf) =p 7Ta ti =p 

T. □ 

Lemma C.4 (Semantics of U Constructors). Let F = Fold[Fi, F2, 
F 3 , F 4 ]. Then, 

F (Prod, n t 2 ) =p F 2 (F n)(F r 2 ) 

F (Prod D k r) = fi F 3 k (A/? : k. F (r /3)) 

F(Prod A r) S(3 F 4 (A X : D.F(tx)) 

Proof. By the definition of Fold, we have that 

F = Aa : U. a Fi F2 F3 F4 

F (Prod, ti T2) 
=p (Prod, n r 2 ) Fi F 2 F 3 F 4 
=/3 F 2 (ti Fi F 2 F3 F4) (r 2 Fi F 2 F3 F4) 
=p F 2 (Fn) (Ft 2 ) 

F (Prod n k t) 
= 8 (Prodn K t) Fi F 2 F 3 F 4 
=/3 F 3 k (A/3 : k. r a Fi F 2 F 3 F 4 ) 
= p F 3K (A/3: K .F(t/3)) 

F (Prod A r) 
= 8 (Prod A t) Fi F 2 F 3 F 4 
=^ F 4 (Ax : □. r x Fi F 2 F 3 F 4 ) 
=/3 F 4 (Ax : □. F (r x)) 

□ 

Lemma C.5 (Kind of type representations in representation envi- 
ronment). If r h T : *, then V h t : U. 

Proof. Sketch: By theorem 4.1, we have that T h r : U. Since 
F and r are equivalent with respect to type and kind bindings, 
rhr:U. ' □ 

Lemma C.6. If r is a normal form and T,x : □ l~ t : * anrf 
r h c : O, f/zen r[x := k] = t[x := k]. 

Proo/ Straightforward by Lemma 3.2, and by induction on the 
height of r, x : □ l~ t : *• □ 

Lemma C.7. IfV h e : r ► g, r/;e« R : U -> *, T h 5 : PExp R f. 



Witness [R,d, , f » , c* ,d n , f p ,c n ,d A , f A ■ Ca ] = 
\a : * . 
A f : 

(DisU R -> Dist c R -> Dist A R -> 
Factor, R — > Factor D R — > FactorA R 
Coerce, R — > Coerce D R — > CoerceA R 
a). 

f d, f, c, d n fn c n dA fA C A 

Figure 20. Witness Context 



Proof. Straightforward by induction on the height of the derivation 
of T h e : t ► q, and Lemmas C.5 and C.6 and Theorems A.9 and 
A.10. □ 



Theorem 5.2 (Types of quotations). If () h e : t 
quote(e) = q, then () h q : Exp r. 



*, and 



Proof. By definition of quote(-), we have that and q = AR : U — > 
*.qi and () h e : r ► qi. By Lemma C.7, R : U —>*,(} h 
gi : PExp R r. Therefore, () h g : (nR : U -> *. PExp R r). 
But 0 = (), and (nR : U -»■ *. PExp R r) =^ Exp r, so 
(} h q : Exp r as required. □ 

Theorem 5.3. //'quote(e) = q, then q ls- strongly normalizing. 

Proof. Suppose quote(e) = q. Then q = AR : U — > *. q 1 and 
() h e : t ► q 1; for some r and q r By Lemma B.8, q 1 is strongly 
normalizing. Therefore, q is strongly normalizing. 

□ 



Definition C.3 (Witness Context). For R,d t ,f*,t\, d D ,fn, c n , dA, 
/a.c'a such that: 



hR:U->* 
h d, : Dist, 
h f, : Factor, 
h c, : Coerce, 
h d n : Dist D 
h fp : Factor n 
h c n : Coerce □ 
h dA : DistA 
h fA : FactorA 
h ca : CoerceA 



We define the term Witness[R,d*,f*,c*, d n ,f n , c n , dA, /a,caV 
as in Figure 20. 

Theorem C.4 (Type of witnesses). Let R, d*,f*,c*, d n ,f n , c a , dA, 
/a,ca be as in Definition C.3. Then, 

() h Witness[R, d,, f,, c, d n , f D , c n , dA, fA, ca] : Witness R 

Definition C.4 (Identity Witness Function). Let f be a term and 
R : U — > * be a type. Then f is an identity witness function if one 
of the following is true: 

• () h f : Dist* R and for all n, r 2 , and e, we have that 
f Ti r 2 e =p e. 

• () h f : Factor, R and for all n, r 2 , and e, we have that 
f ti r 2 e = 0 e. 

• () h f : Coerce, R and for all Ti, t 2 , t 3 , t 4 , Ci, c 2 , and e jkc/j 
ftef Ci ei =/3 ei and c 2 e 2 =p e 2 /or all ei, e 2 , we teve rnaf 
f Tl T 2 T 3 T 4 Cl c 2 e =,3 e. 

• () I- f : Dist n R and for all k, t, and e we have that f k t e =p 
e. 



• (} I- f : Factor n R and for all k, t, and e we have that 
f kt e =p e. 

• () h f : Coerce n R and for all K, n, T 2 , Ci ami e ™cA that 
Ci T3 ei ei for all T3 andt\, we have that f kt\ t 2 Ci e =,3 
e. 

• (} h f : DistA R and for all r, and e we have that fre=p e. 

• {) h f : FactorA R and for all r, and e we have that f r e =p e. 

• () h f : CoerceA R and for all n, r 2 , Ci and e swc/i Jtaf 
Ci /t ei Sjj ei for all K and d, we have that fri T2 Ci es^ e. 

Definition C.5 (Identity Witness). Let R, d,,/,,c,, d n ,f n , c D , d&, 
/a,ca be as in Definition C.3. Then Witness[R,d f ,f*,c*, dn,fn, Cu, 
<^a,/a>ca7 is an identity witness if d f ,f*,c. t , d a ,f a , c a , oa./a, and 
ca are all identity witness functions. 

Lemma C.8 (Semantics of Identity Witnesses). Let w be an iden- 
tity witness. Then: 



1) w (Dist, R) wi Ti T2 e =p e 

2) w (Factor, R) w 2 n t 2 e =/3 e 

3) If ci ei =/3 eifor all ei, 

and C2 e 2 e 2 for all e 2 , then 

w (Coerce, R) W3 n r 2 01 <j 2 e E^e 

4) w (Dist n R) W4 k r e e 

5) w (Factor n R) W5 k t e =0 e 

6) If c ei =^ ei for all ei, then 

w (Coerce n R) W6 k t a c e =p e 

7) w (DistA R) W7 kt e =p e 

8) w (FactorA R) ws r e =/3 e 

9) If c ei =^ ei for all ei, then 

w (CoerceA R) wg r o c e s^e 

Proo/ Straightforward, by definitions A.4, C.4 and C.5, and a few 
steps of /3-reduction. □ 



Definition C.6. For any identity witness w, and any terms f 1 , . . . , f e 
(where w,fi, . . . ,fe may be inferred by context), <f>(e) denotes the 
term e w f 1 . . . f&. 

Definition C.7. Let f be a term. If<f>{f a) 0(a) for any term a, 
we say that f is a ^-identity function, or that f is 4>-id. 

Lemma C.9. 1. For all R, n, r 2 : dist* R n r 2 is <j>-id. 
2. For all R, T\ , r 2 : factor, R T\ r 2 is 0-irf. 

5. ForallR, Ti, r 2 , tTi, cr 2 , Ci, c 2 : //ci and C2 are <f>-id, then 
coerce, R n r 2 ci o~ 2 ci c 2 is cf>-id. 

4. For all R, k, t: distn R /t t is 

5. For all R, k, t: factor n R kt is <p-id. 

6. For all R, k, t, o, c: If c is 0-irf, then coerce n Rktitc is 
4>-id. 

7. For all R, t: distA R r is (/>-id. 

8. For all R, r: factorA R r is <f>-id. 

9. For all R, r, o, c: Ifc is <j>-id, then coerceA R r a c is <j>-id. 

Proof. Straightforward, by Lemmas A.7 and C.8. □ 

Lemma C. 10. 1. ForallR, ti, r 2 , Ci, c 2 : If ci and c 2 are (j>-id, 
then reify „ R n t 2 Ci c 2 is 0-id. 

2. ForallR, n, t 2 , ci, C2: If Ci and c 2 are <f)-id, then reflect* Rti r 2 
is 

3. For a// R, k, r, c:Ifca is 4>-idfor any a, then reify n Rktc 
is </>-id. 

4. For a/i R, «, r, c: 7/c a is <f>-idfor any a, then reflect n Rktc 
is 0-;<i. 

5. For all R, t, c: //c x is <f>-idfor any \, then reify A R r c is 
4>-id. 



6. For all R, t, c: Ifc\ is <f>-idfor any \, then reflect a R r c is 
4>-id. 



Proof. Straightforward by Lemma A.8 and Lemma C.9. □ 

Lemma C.ll (Coercions based on identity witnesses). If n ~» 
r 2 = c, then c is <j>-id. 

Proof. Straightforward by induction on the height of n ~-> r 2 = c, 
and by Lemma C.9 and Lemma C. 10. □ 



Lemma C.12. Suppose F, w, abs*, app,, abs n , app n , absA, and 
app A are as in Definition A.2, and that w is an identity witness. 
Suppose f — fold[F, w, abs,, app*, abs n , app n , abs a, app&]. 
Then for any context Y, term e, and types r and n such that 
The: Ila : k. t and Y h T\ : k, we have that: 



f r[a := t\\ e n =p app n k (Aq : k. r) (f Ha : k. t e) n 
Proo/ Be the definition of fold[. . . ] and e, we have that: 

f t[q := Ti] e Ti 
=p (c (mkApp n R k (Aq : k. t) e n)) 
w abs, app„ abs n app n absA app A 

where r[a := n] ~* r[a := n] = c. By Lemma C.ll, we have 
that: 

(c (mkApp n R k (Xa : k. t) e n)) 
w abs, app,, abs n app n absA app A 
=p (mkApp n R k (Aq : k. t) e n) 

w abs, app,, abs n app n absA app A 

The result follows from a few steps of straightforward /3-reduction. 

□ 

Theorem 5.1. // Y h e : r and () h F : U -> *, ften 
The: PExp F r. 

Proof. We have that e = q[R := F] and Y h e : r ► q. By Lemma 
C.7, we have that R : U — > *, Y h q : PExp R r. By weakening, 
rhF:U->*. Therefore, The: PExp Ff as required. □ 

C.l unquote 

Our self-recognizer unquote is defined in lib/unquotelib .pts. 
unquote= Aa : U. Ae : Exp a. fold[UId, witnessUId, id,, id,, id n , 
id n , id a, idA] Q (e Uld). 

Lemma C.13 (Types of unquote case functions). 

() h id, : (Yla : U. U/3 : U. (Uld a -> Uld fi) -> Uld (Prod, a /?)) 
() h id, : (IIq : U. n/3 : U. Uld (Prod, a /3) -> Uld a -> Uld /3) 
() hide : (n X : □• na : x^U. 

(n/3 : x- Uld (q P)) -> Uld (Prod n x a)) 
() h id n : (n X : □■ na : X -> U. 

Uld (Prod n X a) -> (n/3 : X- Uld (q /3))) 
() h id A : (na : □ -¥ U. (n X : □. Uld a x) -> Uld (Prod A a)) 
() h id A : (na : □ -»■ U. Uld (Prod A a) -> (n X : □. Uld a x)) 

Froo/ Machine checked. □ 

Theorem 6.1 (Type of unquote). 

() h unquote : (IIq : U. Exp a — >• Uld a) 

Proof. Follows directly from Theorem A.8. □ 

Lemma C.14. witnessUId i.v an identity witness. 

Proof. Straightforward. Each witness function is an identity wit- 
ness function. □ 



Lemma C.15. Let f = fold[UId, witnessUId, id,, id,, id D , id n , 
idA, idA]- IfT h e : r ► q, then frq=p e. 

Proof. Straightforward by induction on the height of Y h e : r ► q, 
and by Lemmas C.14 and C.12 and Theorem A.l 1. Note that each 
fold function is an identity function. □ 

Theorem 6.2 (Correctness of unquote). 

If () h e : r and quote(e) = q, then unquote r q =p e. 

Proof. Letf = fold[UId, witnessUId, id,, id,, id n , id n , idA, idA]- 
Thenunquoter q =p fr e. Result follows from Lemma C.15. □ 

C.2 isAbs 

isAbs is defined in lib/isAbslib.pts. isAbs = Aa : U. Ae : 
Exp a. fold[UBool, witnessUBool, isAbsAbs*, isAbsApp*, isAbsAbs n , 
isAbsApp n , isAbsAbsA, isAbsAppA] a (e UBool). 
Theorem 6.3 (Type of isAbs). 

() h isAbs : (Ila : U. Exp a -> Bool) 

Proof. From Theorem A. 8, we have that isAbs : Ila : U.Exp a — > 
UBool a. The result follows from the conversion rule based on 
UBool a = Bool. □ 



C.3 cps 

cps is defined in lib/cpslib.pts. cps = Aa : U. Ae : Exp a. 
fold[CPS, witnessCPS, cpsAbs,, cpsApp,, cpsAbs n , cpsApp n , 
cpsAbsA, cpsAppA] a (e CPS). 

Lemma C.18 (Types of CPS functions). 

() i- cps 

(} h witnessCPS 
(} h cpsAbs^ : (Ila 

(na 

(n x 
(n/3 

(n x 



(} h cpsApp,, 
(} h cpsAbs n 



0 I - cpsApp n 

(} h cpsAbs A 
() h cpsApp A 



U^ * 
Witness CPS 

: U. U/3 : U. (CPS a -> CPS /3) -» CPS (Prod, a /3)) 
: U. n/3 : U. CPS (Prod, a /3) — > CPS a — > CPS /?) 
: □. ITa : x U. 

: x- CPS (a /?)) CPS (Prod n X a)) 
: □. Ila : \ ~* U. 
CPS (Prodn X «) H/3 : x- CPS (a /3)) 
(na : □ ->• U. (nx : □. CPS a X ) -»■ CPS (Prod A a)) 
(na : □ -> U. CPS (Prod A a) -> n X : □. CPS (a x)) 



Prao/ Machined checked. 

Theorem 6.5 (Type of cps). 

() I- cps : (na : U. Exp a -»■ CPS a) 

Prao/ Follows from Lemma C.18 and Theorem A.8. 



□ 



□ 



Lemma C.16. witnessUBool is an identity witness. 

Proof. Straightforward. Each witness function is an identity wit- 
ness function. □ 



Lemma C.17. Letf= fold[UBool, witnessUBool, abs,, app t , abs n , 
app n , absA, app A ], and suppose Y h e : r. 

• Ife = \x : A.ei, then f re ee^ true. 

• If e = ei A, thenfre ee^ false. 

Proof. Suppose e = Ax : A.ei. There are three cases: either 
() h A : *, or () h A : □, or A = □. 

Suppose () h A : *. Then by Theorem A. 11, f r e =p 
(ATi : *. AT 2 : *. Af : Bool -> Bool.true) en a 2 (Ax : 
UBool A. f (j 2 eT) ss^g true, as required. 

The cases of () h A : □ and A = □ are similar to the case of 
() h A : *. 

Suppose now e = d A. Again there are three cases: either 
() h A : Ti : *, or () h A : k : □, or () h A : □. 

Suppose () h A : Ti : *. Then V h ei : n — > T2, and by 
Theorem A.l 1, f r e ee,9 app, t\ T2 (f fi — > T2 el) (f n A) ee,3 
false, as required. 

Suppose () h A : k : □. Then () h ei : (na : k. n). 
By Lemma C.16 and Lemma C.12, f r e ee^ app n k (Aa : 
k. Bool) (f (na : k. ti) el) A =,3 false. 

Suppose () h A : □. Then Y h d : (n X : □■ Ti), an d by The- 
orem A.ll, freEjj app A (Ax : □• n) (f n X : □. Ti eT) A 
false. 

□ 



Theorem 6.4 (Correctness of isAbs). 
/f() he: T : * andquote(e) = q then: 

• Ife = Ax : A.ei, then isAbs r q ee^ true. 

• Ife = ei A, f^e« isAbs t q=/3 false. 

Proo/ Let f = fold[UBool, witnessUBool, abs, , app„ , abs n , app n , 
absA,app A ]. Suppose () h e : r and quote(e) = q. Then 
isAbs t q =p f t e. The result follows from Lemma C.17. □ 



